procedure WMSysCommand(var Msg: TMessage);message WM_SYSCOMMAND;procedure tform1.WMSysCommand(var Msg: TMessage);beginif Msg.wParam <> SC_CLOSE theninherited;end;