[dec]

Hola,

Puedes usar la función "MessageDlg", y si no recuerdo mal también "MessageBox". Por ejemplo:

Código Delphi [-]
If (MessageDlg('¿Quieres casarte conmigo?', 
 mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
begin
  // Sí; quiero
else
begin
  // Esto... bueno... yo...
end;