TDialogService.MessageDialog

[[movorack]]

Hola. usa Application.MessageBox

Código Delphi [-]
if Application.MessageBox(PChar(TextInformation), PChar(DialogTitle), MB_YESNO
  + MB_ICONQUESTION + MB_DEFBUTTON2) = IDYES 
then
begin
  //Tu código
end;