[[maeyanes]]

Código Delphi [-]
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := MessageDlg('¿Realmente desea salir de la aplicación?', mtConfirmation, [mbOK, mbCancel], 0) = mrOk
end;