Source position: vlc.pp line 153
type TTitleEvent = procedure(
Sender: TObject;
const ATitle: Integer
) of object;