Source position: vlc.pp line 156
type TTimeEvent = procedure(
Sender: TObject;
const time: TDateTime
) of object;