Truco accedido 106 veces
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=FALSE; end;
Application.Terminate;