anchor.diff:    end;
   end;
   
  -class function TAbTarArchive.SupportsEmptyFolder: Boolean;
  -begin
  -    Result := True;
  -end;
  -
   procedure TAbTarArchive.TestItemAt(Index: Integer);
   var
     Hlpr : TAbTarStreamHelper;
  
positive.code: 
  { TAbTarArchive }
  
  function TAbTarArchive.CreateItem(const FileName: string): TAbArchiveItem;
  var
    FileSpec: string;
    Item : TAbTarItem;
  begin
    FileSpec := FileName;
    Item := TAbTarItem.Create;
    try
      Item.CompressedSize := 0;
      Item.CRC32 := 0;
      if (AbDirectoryExists(FileSpec)) then begin
          Item.SetIsDirectory(True);
          FileSpec := IncludeTrailingPathDelimiter(FileSpec);
      end;
      Item.DiskFileName := ExcludeTrailingPathDelimiter(ExpandFileName(FileSpec));
      Item.FileName := FixName(FileSpec);
    finally
      Result := Item;
  
negative.code: 
    TAbTarArchive = class(TAbArchive)
    protected
      function CreateItem(const FileSpec : string): TAbArchiveItem;
        override;
      procedure ExtractItemAt(Index : Integer; const UseName : string);
        override;
  