Source position: zstream.pp line 48
protected procedure Tcustomzlibstream.progress(
sender: TObject
);