"a ^= b" in Delphi

[omata]

Vielleicht...
a:=a xor b;