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