anchor.diff:  begin
     if FTarItem.ItemReadOnly then { Read Only - Do Not Save }
       Exit;
  -  { Size is extendable in PAX Headers, Rember PAX extended Header Over Rule File Headers }
  +  { Size is extendable in PAX Headers, Remember PAX extended Header Over Rule File Headers }
     FTarItem.Size := Value; { Store our Vitrual Copy }
     S := PadString(IntToOctal(Value), SizeOf(Arr12));{ Stuff to header }
     Move(S[1], PTarHeader.Size, Length(S));
  
positive.code:     end; { End if GNU... }
      { Save off the new name and store to the Header }
      FTarItem.LinkName := Value;
      StrPCopy(PTarHeader.LinkName, AnsiString(FTarItem.LinkName));
    end;{ End else Short new name,... }
    { May have updated the Headers so point it back to the File type Header. }
    PTarHeader := FTarHeaderList.Items[FTarHeaderList.Count-1];
    FTarItem.Dirty := True;
  end;
  
  
negative.code:     procedure GetLinkNameFromHeaders; { Helper to pull name from Headers }
      procedure SaveModDate(UnixTime: AnsiString);
      function  TestCheckSum: Boolean;  { Helper to Calculate Checksum of a header. }
      procedure DoGNUExistingLongNameLink(LinkFlag: AnsiChar; I: Integer; const Value: AnsiString);
      procedure DoGNUNewLongNameLink(LinkFlag: AnsiChar; I: Integer; const Value: AnsiString);
    protected {private}
      PTarHeader: PAbTarHeaderRec;{ Points to FTarHeaderList.Items[FTarHeaderList.Count-1] }
      FTarHeaderList: TList;      { List of The Headers }
  