Disable the close button of a form

Procedure TForm1.FormCreate ( Sender : TObject ) ;

Var

   hMenuHandle : HMENU ;

Begin

   hMenuHandle := GetSystemMenu ( Form1.Handle , FALSE ) ;

   If ( hMenuHandle <> 0 ) Then

      DeleteMenu ( hMenuHandle , SC_CLOSE , MF_BYCOMMAND ) ;

End ;