anchor.diff:      Result := StringOfChar(AnsiChar(' '), Places - Length(Result)) + Result;
     end;
   end;
  +
   { Round UP to the nearest Tar Block Boundary. }
  -function RoundToTarBlock(Size: Int64) : Int64; overload;
  -begin
  -  Result := (Size + (AB_TAR_RECORDSIZE - 1)) and
  -             not (AB_TAR_RECORDSIZE - 1);
  -end;
  -
  -function RoundToTarBlock(Size: Integer): Integer; overload;
  +function RoundToTarBlock(Size: Int64) : Int64;
   begin
     Result := (Size + (AB_TAR_RECORDSIZE - 1)) and
                not (AB_TAR_RECORDSIZE - 1);
  
positive.code:       begin
          { Copy entire content of Header to String }
          PHeader := FTarHeaderList.Items[I+J];
          setstring(TempStr, PChar(PHeader), AB_TAR_RECORDSIZE);
          {Move(PHeader^, TempStr[1], AB_TAR_RECORDSIZE);}
          NameStr := NameStr + TempStr;
        end;
  
negative.code:     procedure SetLinkName(const Value: string);  { Extended Headers }
      procedure SetUserID(const Value: Integer);   { Extended Headers }
      procedure SetUserName(const Value: string);  { Extended Headers }
      procedure SetModTime(const Value: Int64);
      Procedure SetMagic(const Value: string);
      { TODO: add support for Atime and Ctime here }
  
  