[Delphi] Kodowanie w TStream-ach

Mam funkcje na kodowanie i na dekodowanie:

type top=1..2//1: dodawanie, 2: odejmowanie
function transcode(S,k:byte;op:top):byte;
var
i:integer;
begin
i:=0;
case op of
1:
begin
i:=s+k;
if i>255 then
i:=i-255;
if i255 then
i:=i-255;
if i

Czy To AŻ tak trudne?

Może być przynajmniej TFileStream.

Błagam, ODPOWIEDZCIE

1. niepisz 2 posta tylko dopisuj do starego
2. jak nikt nieodpowiada to znaczy ze nikt niewie

Jak o coś trudnego się pytam to muszę sobie sam odpowiadać. Chyba dam sobie plusa :-)

type
TBuff=Array [0..1024] of Byte;
ECodingException=class(Exception);

Procedure CodeFile(InFile, OutFile: String; Key: Byte);
var
Buff: TBuff;
I, Count: Integer;
FSIn, FSOut: TFileStream;
begin
FSIn:=TFileStream.Create(InFile, fmOpenRead or fmShareDenyWrite);
If FileExists(OutFile) then
begin
DeleteFile(OutFile);
end;
FSOut:=TFileStream.Create(OutFile, fmCreate or fmShareExclusive);
while FSIn.Position