var
  num1, num2, num3 : Integer;
  letter           : Char;

begin
  num1   := $25;    // Бинарное значение  : 0010 0101   $25
  num2   := $32;    // Бинарное значение  : 0011 0010   $32
                    // Значение после XOR : 0001 0111 = $17
  letter := 'G';

  // И используемый для возвращения Булева значения
  if (num1 > 0) Xor (letter = 'G')
  then ShowMessage('Только одно из значений истинно')
  else ShowMessage('Оба значения истины');

  // И используемый для выполнения математической операции Xor
  num3 := num1 Xor num2;

  // Показ результата
  ShowMessageFmt('$25 Xor $32 = $%x',[num3]);
end;