procedure WMSysCommand(varMsg:TWMSysCommand);messageWM_SYSCOMMAND; procedureTForm1.WMSysCommand(varMsg:TWMSysCommand); begin ifMsg.CmdType<>SC_CLOSEthen inherited end;