XOR Ext String Crypter

procedure TForm1.Button1Click(Sender: TObject);
var 
	s : string;
    i : integer;
begin
  s:='Dies ist ein Test';
  showmessage('Normal: '+s);
  
  for i:=1 to length(s) do begin
    s[i]:=Chr((Ord(s[i]) Xor (i*i-i))+(4+i)*(3+i));
  end;
  
  showmessage('Verschlüsselt: '+s);
  
  for i:=1 to length(s) do begin
    s[i]:=Chr((Ord(s[i])-(4+i)*(3+i)) Xor (i*i-i));
  end;
  
  showmessage('Entschlüsselt: '+s);
end;