[lmikle]

Ну не знаю.
Конкретно на Берлин 10.1 вот этот код работает:

Код:

procedure TForm2.Button1Click(Sender: TObject);
var
  b1, b2 : Boolean;
begin
  b1 := false;
  b2 := false;
  if (b1 = b2) then showmessage('works!');
  if not (b1 xor b2) then showmessage('works!');
end;

Причем оба варианта.