[Faust]

Otra opción es MessageDlg:

Código Delphi [-]
if MessageDlg('¿Está seguro que desea llevar al cabo esta acción?', mtWarning, [mbYes, mbNo], 0) = mrYes then
begin
  // Realizar la acción en caso de contestar Yes
end;