TWMHScrollClipboard = packed record
  Msg: Cardinal;
  Viewer: HWND;
  ScrollCode: Word;
  Pos: Word;
  Result: Longint;
end;

struct TWMHScrollClipboard {
  unsigned Msg;
  HWND Viewer;
  Word ScrollCode;
  Word Pos;
  Longint Result;
};