DBGrid Text verschlüsseln mit der XOR-Methode

[Alterauge]

Hallo,
würde gerne mit der XOR-Methode Text verschlüsseln!

Hier der Quelltext!
Leider wird der Text nicht verschüsselt ?

Delphi-Quellcode:

procedure TForm1.AdvGlowButton3Click(Sender: TObject);
var
  s: String;
  i: Integer;
//begin
 //if MyTable2.FieldByName('StatusEinsatz').Text ='Eingang' then
begin
  // Kodieren
MyTable2.Edit;
  s:=MyTable2.FieldByName('Meldung').Text;
  for i:=1 to length(s) do
    s[i]:=char(23 Xor Ord(s[i]));
     MyTable2.FieldByName('StatusEinsatz').Text :='Quittung +';
       MyTable2.Post;
        MyTable2.Refresh;
 //end else begin

 end;
//end;