Source position: vlc.pp line 155
type TErrorEvent = procedure(
Sender: TObject;
const AError: string
) of object;