Source position: zipper.pp line 511
type TCustomInputStreamEvent = procedure(
Sender: TObject;
var AStream: TStream
) of object;