Algo asi:
Código Delphi
[-]
function Confirmar(Msg: string): Boolean;
begin
Result := MessageDlg(Msg, mtConfirmation, mbYesNoCancel, 0) = mrYes;
end;
Un ejemplo de uso:
Código Delphi
[-]
if Confirm('¡No se han guardado los cambios!' + #10#13 + '¿Confirma Salir?') then
CancelUpdates;