Ich würde Dir dringend empfehlen, die Passwortverschlüsselung in eine eigene Funktion oder Methode zu packen.
Delphi-Quellcode:
function EncryptPasswordXOR(const passwort:string):string;
var
...
begin
// dein Job hier
end;
Der Aufruf sieht dann so aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:= EncryptPasswordXOR(Edit1.text);
end;
So wird alles deutlich einfacher und klarer.