procedure TForm2.Button1Click(Sender: TObject);
  function test(value:boolean):boolean;
  begin
    result:=value
  end;
begin
  if (1=2) and test(false) then showmessage('ok');

end;