Source position: vlc.pp line 157
type TPositionEvent = procedure(
Sender: TObject;
const APos: Double
) of object;