TWMScroll = packed record
  Msg: Cardinal;
  ScrollCode: Smallint;
  Pos: Smallint;
  ScrollBar: HWND;
  Result: Longint;
end;

struct TWMScroll {
  unsigned Msg;
  Smallint ScrollCode;
  Smallint Pos;
  HWND ScrollBar;
  Longint Result;
};