Source position: zstream.pp line 56
protected procedure Tcustomzlibstream.progress(
sender: Tobject
);