Source position: AbArcTyp.pas line 211
type TAbArchiveProgressEvent = procedure(
Sender: TObject;
Progress: Byte;
var Abort: Boolean
) of object;