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