TWMSysCommand = packed record
  Msg: Cardinal;
  CmdType: Longint;
  case Longint of
    SC_HOTKEY: (ActivateWnd: HWND;);
    SC_KEYMENU: (Key: Word;);
    SC_VSCROLL: (XPos: Smallint;
                 YPos: Smallint;
                 Result: Longint;);
end;

struct TWMSysCommand {
  unsigned Msg;
  Longint CmdType;
  HWND ActivateWnd;
  Word Key;
  Smallint XPos;
  Smallint YPos;
  Longint Result;
};