Source position: zipper.pp line 201
type TProgressEventEx = procedure(
Sender: TObject;
const ATotPos: Int64;
const ATotSize: Int64
) of object;