Source position: scrollbar.inc line 22
type TScrollEvent = procedure(
Sender: TObject;
var APosition: Integer
) of object;