xor erklärung

[painrestricter]

Delphi-Quellcode:

var
  Form1: TForm1;
  text : string;

implementation

{$R *.dfm}

//bla bla bla

procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
if memo1.Text <> '' then begin
 text := memo1.text;
 try
  for i := 1 to length(text) do
  text[i] := char(21 XOR Ord(text[i]));
 except
  showmessage('bla bla');
 end
end
else
 showmessage('bla bla');
end;

edit: ok ich hab den fehler gefunden: ich hab text also string deklariert, und delphi hat es als irgendwas anderes erkannt. Hab jetzt einen anderen variablen namen genommen, und siehe da, es geht