Schließen Kreuz deaktivieren

EnableMenuItem(GetSystemMenu(Form1->Handle, false), SC_CLOSE, MF_BYCOMMAND | MF_GRAYED);