Einfach einen Text verschlüsseln

[Delphi Nooby]

Ich habe auf einer seite http://www.dsdt.info/tipps/?id=370
Unter Tipps und Tricks gefunden wie man einen Text einfach verschlüsseln könnte.

Hier der Code

Delphi-Quellcode:

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]));
end;

Wenn ich nun den Button 1 erstelle und auch das edit feld 1 und den Code einfüge und initialisiere ist es so,
dass ich wenn ich auf den button1 klicke rein gar nichts passiert

Tja... dann wäre da noch dass ich der völligste Neuling bin dens gibt...
ich mein klar hab ich schon nen additionsrechner gemacht.Und nach Tutorials habe ich auch schon gesucht da gibtt es dann aber nur hochkomplexe progs ^^ die ich net versteh oder hald additionsrechner


Thx for help