Source position: zipper.pp line 200
type TProgressEvent = procedure(
Sender: TObject;
const Pct: Double
) of object;