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