Code:

EnableMenuItem(GetSystemMenu(FindWindow(Nil, Pchar('Название Окна')),False)

,SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);