anchor.diff:    while (not FoundName) and (I <= (FTarHeaderList.Count - 1)) do
     begin
       PHeader := FTarHeaderList.Items[I];
  -    if PHeader.LinkFlag = AB_TAR_LF_LONGNAME then
  +    if PHeader.LinkFlag = Ord(AB_TAR_LF_LONGNAME) then
       begin
         FoundName := True;
         RawFileName := '';
  
positive.code:       { Read our next header, Loop, and re-parse }
        DataRead := FStream.Read(FTarHeader, AB_TAR_RECORDSIZE);
      end
      else if FTarHeader.LinkFlag in (AB_SUPPORTED_F_HEADERS+AB_UNSUPPORTED_F_HEADERS) then
      begin { We have a un/supported File Header. }
        FoundItem := True;
        if not (FTarHeader.LinkFlag in AB_IGNORE_SIZE_HEADERS) then
          FCurrItemSize := OctalToInt(FTarHeader.Size, SizeOf(FTarHeader.Size))
        else FCurrItemSize := 0; { Per The spec these Headers do not have file content }
        FCurrItemPreHdrs := FCurrItemPreHdrs + 1; { Tally current header }
  
negative.code:     ModTime : Arr12;    { 136-147, $ 88- 93, time of last modification.(UNIX Date in ASCII coded Octal)
                                               UTC time }
      ChkSum  : Arr8;     { 148-155, $ 94- 9B, checksum of header (6 bytes ASCII coded Octal, #00, #20) }
      LinkFlag: Byte; {     156, $     9C, type of item, one of the Link Flag constants from above }
      LinkName: ArrName;  { 157-256, $ 9D-100, name of link, null terminated ASCII string }
      Magic   : TAbTarMagicRec;
                          { 257-264, $101-108, identifier, usually 'ustar'#00'00' }
      UsrName : array [0..AB_TAR_TUSRNAMELEN-1] of AnsiChar;
  