TWMCommand = packed record
  Msg: Cardinal;
  ItemID: Word;
  NotifyCode: Word;
  Ctl: HWND;
  Result: Longint;
end;

struct TWMCommand {
  unsigned Msg;
  Word ItemID;
  Word NotifyCode;
  HWND Ctl;
  Longint Result;
};