anchor.diff:    J: Integer;
     NumHeaders: Integer;
     ExtraName: Integer;
  -  tempStr: AnsiString;
  +  tempStr: string;
  +  pBytes: TBytes;
   begin
     { We have a GNU_FORMAT, and no L/K Headers.}
     { Add a new MD Header and MD Data Headers }
  
positive.code:     FTarHeaderList.Insert(I+NumHeaders, PHeader);{ Insert: Inserts at base index }
      FTarHeaderTypeList.Insert(I+NumHeaders, Pointer(MD_DATA_HEADER));{ We are only adding MD Data headers here }
      FillChar(PHeader^, AB_TAR_RECORDSIZE, #0); { Zero the whole block }
      Move(TempStr[1], PHeader^, ExtraName-1); { The string is null terminated in the header }
    end
    else { We already copied the entire name, but it must be null terminated }
    begin
  
negative.code:   TotalNewNumHeaders: Integer;
    NumHeaders: Integer;
    ExtraName: Integer;
    tempStr: string;
    pBytes: TBytes;
  begin
    PHeader := FTarHeaderList.Items[I];
  
  