test是否被執行？

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;

前置邏輯為真是會執行test，為假是不執行。