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