Source position: AbArcTyp.pas line 238
type TAbArchiveItemProgressEvent = procedure(
Sender: TObject;
Item: TAbArchiveItem;
Progress: Byte;
var Abort: Boolean
) of object;