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