Source position: indsliders.pas line 36
type TSliderPositionEvent = procedure(
Sender: TObject;
AKind: TThumbKind;
AValue: Integer
) of object;