xor-шифрование

[Halyna]

Подскажите пожалуйста, где ошибка. файл не правильно шифруется и разшифровывается (программа написана на delphi)

procedure TForm1.Button2Click(Sender: TObject);
   var FName: string;
begin

      if OpenDialog1.Execute then
       begin
        FName := OpenDialog1.FileName;
        Memo1.Lines.LoadFromFile(FName);
       end;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var j: integer;
  key, text, longkey, result: string;
  i: integer;
  toto, c: char;
begin


        if edit1.Text='' then  Application.MessageBox('Вкажіть код!', ä!','Помилка!')
         else
         begin
              if Memo1.Lines.Count=0 then  Application.MessageBox('Відсутній код!','Помилка!!!')
                 else
                 begin

                   key:=Edit1.Text;
                   for j:=0 to Memo1.Lines.Count do
                    begin

                      text:=Memo1.Lines.Strings[j];

                      for i := 0 to (length(text) div length(key)) do
                        longkey := longkey + key;
                        for i := 1 to length(text) do
                        begin
                          toto := chr((ord(text[i]) xor ord(longkey[i]))); // XOR алгоритм
                          result := result + toto;
                        end;
                      Memo1.Lines.Strings[j]:=result;
                      end;
                   //zapuskaesh codirovanie
                 end;
         end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var FName: string;
begin
if SaveDialog1.Execute then
       begin
        FName := SaveDialog1.FileName;
        Memo1.Lines.savetofile(FName);
       end;

end;

end.

вот оно шифрует

а вот расшифровывает