Código Delphi
[-]procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.MessageBox('Realmente desea cerrar el formulario?', 'Confimación', MB_YESNO) = IDNO then
Action := caNone;
end;
pero mejor en el evento CloseQuery;
Código Delphi
[-]procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := Application.MessageBox('Realmente desea salir?', 'Confimación', MB_YESNO) = IDYES;
end;
Saludos