Не расшифровывается текстовый файл

var
  seqPSW : shortstring = 'D5wI5*%h(FK$';
 
function DecodeStr(const S : string) : string;
var I, J : Integer;
begin
  Result := S; J := 1;
  for I := 1 to Length(S) do begin
    Result[I] := AnsiChar(Byte(Result[I]) xor Byte(seqPSW[J]));
    if Result[I] = #0 then Result[I] := S[I];
    if J = Length(seqPSW) then J := 1 else Inc(J);
  end;
  end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Work('1.txt','1.btt');
end;
 
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  Work('1.btt','2.txt');
end;

cod:=Edit3.Text;

procedure Work(nam1,nam2,cod:string);
 var
   buf:Byte; //áóôåð äëÿ ÷òåíèÿ è çàïèñè
   I:Integer;
   ln_:Integer; //Äëèíà êîäîâîé ñòðîêè
   CNT:Integer; //Ñ÷¸ò÷èê êîäà
begin
 
 ln_:= Length(cod);
 CNT:=1;
 STRM:=TMemoryStream.Create;//Ñîçäà¸ì ïîòîê
 STRM.LoadFromFile(nam1); //Çàãðóæàåì â ïîòîê ôàéë
 STRM.Position:=0;//Îáÿçàòåëüíûé ñáðîñ ïîçèöèè ïîòîêà â íà÷àëî.
 for i:=0 to STRM.Size-1 do begin
    STRM.Read(buf,1);
    buf:= buf xor Ord(Cod[CNT]);
    STRM.Position:=STRM.Position-1;
    STRM.Write(buf,1);
    if CNT = ln_ then CNT:=1 else CNT:= CNT + 1;//Ñëåæåíèå çà öèêëîì êîäà
                            end;
 STRM.SaveToFile(nam2);
 STRM.Free;//Îñâîáîæäåíèå ïîòîêà
end;

Work(Edit1.Text, Edit2.Text, 'D5wI5*%h(FK$');