Source position: msescrollbar.pas line 81
type beforescrollbareventty = procedure(
const sender: tcustomscrollbar;
var akind: scrolleventty;
var avalue: real
) of object;