TCMCreatePopup = packed record
  Msg: Cardinal;
  PopupID: Integer;
  OwnerWnd: HWND;
  Result: Integer;
end;

struct TCMCreatePopup {
  unsigned Msg;
  int PopupID;
  HWND OwnerWnd;
  int Result;
};