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