einfaches Entschlüsselungsproblem

[Penelopee]

Habe einen Text so versclüsselt:

Delphi-Quellcode:

var i,j:integer;
    key:string;
begin

key:=Edit1.Text;

for j:=1 to length(key) do begin

for i:=1 to length(s) do
 begin

S[i]:=Chr(65 + ((Ord(S[i]) - 65) + (Ord(Key[j]) - 65)) mod 26 );
 end;
 end;
Memo1.Lines.Text:=s;

Nun die Frage , wie kann man das Entschlüsseln???Wenn ich das + durch ein Minus ersetze:
S[i]:=Chr(65 + ((Ord(S[i]) - 65) - (Ord(Key[j]) - 65)) mod 26 ); kommt nicht der Klartext raus.Was mache ich falsch????

MFG und ALlen einen GUTEN Rutsch!!!