anchor.diff:  
     TAbTarStreamHelper = class(TAbArchiveStreamHelper)
     private
  -    function FindItem(FindFirst: Boolean): Boolean; { Tool for FindFirst/NextItem functions }
  +    function FindItem: Boolean; { Tool for FindFirst/NextItem functions }
     protected
       FTarHeader      : TAbTarHeaderRec; { Speed-up Buffer only }
       FCurrItemSize   : Int64;           { Current Item size }
  
positive.code: { Should only be used from LoadArchive, as it is slow. }
  function TAbTarStreamHelper.FindFirstItem: Boolean;
  begin
     Result := FindItem(True); { FindFirst = True }
  end;
  
  { Should only be used from LoadArchive, as it is slow. }
  function TAbTarStreamHelper.FindNextItem: Boolean;
  begin
     Result := FindItem(False); { FindFirst = False }
  end;
  
  { This is slow, use the archive class instead }
  
negative.code: end;
  
  { This function Should only be used from LoadArchive, as it is slow. }
  function TAbTarStreamHelper.FindItem: Boolean;
  var
    DataRead : LongInt;
    FoundItem: Boolean;
  