[[cHackAll]]

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