anchor.diff:        FoundName := True;
         NameStr := '';
         NameLength := OctalToInt(PHeader.Size, SizeOf(PHeader.Size));
  -      NumMHeaders := Floor(NameLength / AB_TAR_RECORDSIZE);
  +      NumMHeaders := NameLength div AB_TAR_RECORDSIZE;
         ExtraName := NameLength mod AB_TAR_RECORDSIZE; { Chars in the last Header }
         { NumMHeaders should never be zero }
         { It appears that it is not null terminated in the blocks }
  
positive.code:       FoundName := True;
        NameStr := '';
        NameLength := OctalToInt(PHeader.Size, SizeOf(PHeader.Size));
        NumMHeaders := Floor(NameLength / AB_TAR_RECORDSIZE);
        ExtraName := NameLength mod AB_TAR_RECORDSIZE; { Chars in the last Header }
        { NumMHeaders should never be zero }
        { It appears that it is not null terminated in the blocks }
  
negative.code:       begin
          { Copy entire content of Header to String }
          PHeader := FTarHeaderList.Items[I+J];
          SetString(TempStr, PAnsiChar(PHeader), AB_TAR_RECORDSIZE);
          NameStr := NameStr + TempStr;
        end;
        if ExtraName <> 0 then
        begin
          PHeader := FTarHeaderList.Items[I+NumMHeaders+1];
          SetString(TempStr, PAnsiChar(PHeader), ExtraName-1);
          NameStr := NameStr + TempStr;
        end
        else { We already copied the entire name, but the string is still null terminated. }
  