TWMParentNotify = packed record
  Msg: Cardinal;
  Event: Word;
  case Word of
    0: (Value1: Word;
        Value2: Longint;
        Result: Longint;);
    WM_DESTROY: (ChildID: Word;
                 ChildWnd: HWnd;);
    WM_RBUTTONDOWN: (Value: Word;
                     XPos: Smallint;
                     YPos: Smallint;);
end;

struct TWMParentNotify {
  unsigned Msg;
  Word Event;
  Word ChildID;
  HWnd ChildWnd;
  Word Value;
  Smallint XPos;
  Smallint YPos;
  Word Value1;
  Longint Value2;
  Longint Result;
};