Source position: zipper.pp line 510
type TOnCustomStreamEvent = procedure(
Sender: TObject;
var AStream: TStream;
AItem: TFullZipFileEntry
) of object;