TWMMouseActivate = packed record
  Msg: Cardinal;
  TopLevel: HWND;
  HitTestCode: Word;
  MouseMsg: Word;
  Result: Longint;
end;

struct TWMMouseActivate {
  unsigned Msg;
  HWND TopLevel;
  Word HitTestCode;
  Word MouseMsg;
  Longint Result;
};