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