TWMInitMenuPopup = packed record
  Msg: Cardinal;
  MenuPopup: HMENU;
  Pos: Smallint;
  SystemMenu: WordBool;
  Result: Longint;
end;

struct TWMInitMenuPopup {
  unsigned Msg;
  HMENU MenuPopup;
  Smallint Pos;
  WordBool SystemMenu;
  Longint Result;
};