Verschlüsselungs Problem mit ASCII Zeichen

[Penelopee]

Hier nochmal mein Quelltext:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
begin

s:=Memo1.Lines.Text;
end;

function GetOneTimePadKey(Text:String):String;var i:Integer;
begin

  SetLength(Result,Length(Text));

  for i:=1 to Length(Result) do
    Result[i]:=Char(Random(255));

end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;

begin

for i:=1 to length(s)
 do begin
  s[i] := Chr( Ord(s[i]) + 3);
   end;

Memo1.Lines.Text:=s;
end;

Also den key hab ich jetzt erstellt bekommen , aber im Moment wird einfach nur immer der Text um 3 Zeichen verschoben , wie kann ich das machen , dass der Text so verschlüsselt wird , dass ich ihn mit dem zufällig erstelltem key entschlüsseln kann????
Danke schon mal!