Source position: system.uitypes.pp line 536
type TScrollCode = (
scLineUp,
scLineDown,
scPageUp,
scPageDown,
scPosition,
scTrack,
scTop,
scBottom,
scEndScroll
);