[BrunoBsso]

Empezado por antonio302050

BrunoBsso sabes, nunca se me habia pasadopor la cabeza q hacia el evento CloseQuery,
es bueno aprender cosas nuevas , gracias

Por si todavía te queda alguna duda, el OnCloseQuery (significa CuandoPidenCerrarlo más o menos) lo que hace es dispararse cuando alguien intenta cerrarlo y si está asignado ejecuta lo que pidas, luego verifica si vos permitís cerrarlo (el pparámetro CanClose) y si es TRUE lo cierra, sino simplemente no se cierra.
Ejemplo:
Un formulario con un TRadioGroup con 2 items. Cerrar (índice 0) permite cerrarlo y No Cerrar (índice 1) obviamente no lo permite. El evento OnCloseQuery lo verificará todo.

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  case RadioGroup1.ItemIndex of
    0: CanClose:=True; //Le permito cerrar
    1: CanClose:=False; //No le permito cerrar
  end;
end;

Saludos!