Hilfe bei XOR-"Verschlüsselung"

[Pseudemys Nelsoni]

Moin,

sorry, ein besserer Titel ist mir nicht eingefallen*g*

Folgendes:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  C: Char;
begin
  C := 'h';
  C := Chr(((Ord(C) xor 1) + 1) + 24);
  C := Chr(((Ord(C) xor 1) - 1) - 24);
  showmessage(C);
end;

Wieso wird mir beim ShowMessage "j" angezeigt, statt "h"?
Nicht über die Zahlen wundern....normalerweise sind dort Variablen.