Ну не знаю.
Конкретно на Берлин 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;
Причем оба варианта.