TCMMouseWheel = record
  Msg: Cardinal;
  ShiftState: TShiftState;
  Unused: Byte;
  WheelDelta: SmallInt;
  case Integer of
    0: (XPos: Smallint;
        YPos: Smallint;);
    1: (Pos: TSmallPoint;
        Result: Longint;);
end;

struct TCMMouseWheel {
  unsigned Msg;
  TShiftState ShiftState;
  Byte Unused;
  SmallInt WheelDelta;
  Smallint XPos;
  Smallint YPos;
  TSmallPoint Pos;
  Longint Result;
};