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