procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; procedure TForm1.WMSysCommand(var Msg: TWMSysCommand); begin if Msg.CmdType <> SC_CLOSE then inherited end;