anchor.diff:      raise EAbNoArchive.Create;
   end;
   { -------------------------------------------------------------------------- }
  -
   procedure TAbBaseBrowser.SetCompressionType(const Value: TAbArchiveType);
   begin
     if not Assigned(FArchive) or (Status <> asInvalid) then
  
positive.code: { -------------------------------------------------------------------------- }
  destructor TAbBaseBrowser.Destroy;
  begin
   if Assigned(FArchive) then
    FArchive.Free;
    FArchive := nil;
    inherited Destroy;
  
negative.code:   AbUtils,
    AbArcTyp;
  
  type
    TAbBaseMeterLink = class(TAbBaseComponent)
    public
      procedure DoProgress(Progress : Byte); virtual; abstract;
      procedure Reset; virtual; abstract;
    end;
  
    TAbBaseBrowser = class(TAbBaseComponent)
  