anchor.diff:  
   function TAbTarItem.GetFileName: string;
   begin
  -  Result := FTarItem.Name; { FTarHeader.Name;} { Inherited String from Parent Class }
  +  Result := FTarItem.Name; { Inherited String from Parent Class }
   end;
   
   function TAbTarItem.GetGroupID: Integer;
  
positive.code:     {build Items list from tar header records}
  
      { reset Tar }
  	ItemFound := (FStream.Size > 0) and TarHelp.FindFirstItem;
  	if ItemFound then FArchFormat := UNKNOWN_FORMAT
  	else FArchFormat := V7_FORMAT;
  
      { while more data in Tar }
      while (FStream.Position < FStream.Size) and ItemFound do begin
  
negative.code:     function GetLinkName: string;
      function GetUserID: Integer;
      function GetUserName: string;
      function GetModTime: Int64;
      function GetNumHeaders: Integer;
      function GetMagic: string;
  
  