Source position: zipper.pp line 213
type TOnStartFileEvent = procedure(
Sender: TObject;
const AFileName: AnsiString
) of object;