Resultado de la función MessageDlg

[dec]

Hola,

Sí que puedes hacer lo que quieres:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if MessageDlg('Are you sure?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    ShowMessage('You press the Yes button');
  end;
end;