TCMPopupHWndDestroy = packed record
  Msg: Cardinal;
  PopupFormInfo: PPopupFormInfo;
  PopupControlWnd: HWND;
  Result: Integer;
end;

struct TCMPopupHWndDestroy {
  unsigned Msg;
  PPopupFormInfo PopupFormInfo;
  HWND PopupControlWnd;
  int Result;
};