Boolean incompréhensible

Bonjour

Pourquoi le programme suivant affiche-t-il true? Et que signifie (7 and x)
?

procedure TForm1.Button1Click(Sender: TObject);
var
x:byte;
begin
x:=3+2;
      if (7 and x)=5 then showmessage('true');
end;


Merci