Source position: AbArcTyp.pas line 230
type TAbArchiveItemTestEvent = procedure(
Sender: TObject;
Item: TAbArchiveItem
) of object;