void __fastcall TForm1::FormCreate(TObject *Sender)
{
    EnableMenuItem(GetSystemMenu(Handle,0),SC_CLOSE,MF_GRAYED);
}

BOOL EnableMenuItem(hmenu, uItem, fuFlags)

HMENU hmenu;    // メニューのハンドル
UINT uItem;     // 使用可能、使用不能、または灰色表示するメニュー項目
UINT fuFlags;   // メニュー項目フラグ