XOR String Crypter

// Crypt

procedure TForm1.Button1Click(Sender: TObject);
var 
  s: String;
  i: Integer;
begin
  // Kodieren
  s:=Edit1.Text;
  for i:=1 to length(s) do
    s[i]:=char(23 Xor Ord(s[i]));
    Edit1.Text := s;
    end;

// Decrypt
procedure TForm1.Button2Click(Sender: TObject);
var 
  s: String;
  i: Integer;
begin
  // Dekodieren
  s:=Edit1.Text;
  for i:=1 to length(s) do
    s[i]:=char(23 Xor ord(s[i]));
  Edit1.Text := s;
end;