Source position: vlc.pp line 154
type TSnapshotEvent = procedure(
Sender: TObject;
const AfileName: string
) of object;