Prevent form close (Alt + F4)

Procedure TForm1.FormCloseQuery ( Sender : TObject ; Var CanClose : Boolean ) ;

Begin

   CanClose := FALSE ;

End ;