کد کردن فایل

[dr-delphi]

سلام
میشه بگید کد زیر کجاش اشتباهه؟
ایا روش های بهتری هم هست؟
میشه راهنمایی کنید اساتید؟

var
str : TFileStream;
enc : TFileStream;
i : integer;
s : string;
buf : byte;
begin s:='c:\123.txt';
str:=TFileStream.create(s,fmopenread);
enc:=TFileStream.create('c:\123_enc.txt',fmcreate) ;
for i:=1 to str.size do
begin str.readbuffer(buf,8);
buf:=buf xor 8;
enc.write(buf,8);
end;
end;

end.

[Arman_1367]

str.readbuffer(buf,8);
تغییر داده شود به
str.readbuffer(buf,1);
و
برای Write هم همینطور چون تابع به تعداد عدد مورد نظر شما بایت از جریان می خونه و می نویسه.