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