Source position: zipper.pp line 202
type TOnEndOfFileEvent = procedure(
Sender: TObject;
const Ratio: Double
) of object;