xor, was ist falsch?

[Corpsman]

Also sei mir nich bös, aber bei mir gehts so net.

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
  l: Tstringlist;
Begin
  l := Tstringlist.create;
  l.text := Memo1.Lines.Text;
  l.text := Docrypt(l.text);
  memo1.lines.text := l.text;
  l.free;
End;