anchor.diff:      ModTime    : Int64;    { Last time of Modification, in UnixTime }
       ChkSumPass : Boolean;  { Header Check sum found to be good }
       LinkFlag   : AnsiChar; { Link Flag, Echos the actual File Type of this Item. }
  -    ItemType   : TarItemType; { Item Type Assigned from LinkFlag Header Types. }
  +    ItemType   : TAbTarItemType; { Item Type Assigned from LinkFlag Header Types. }
       LinkName   : string;   { Link Name }
       Magic      : AnsiString;   { Magic value }
       Version    : Integer;  { Version Number }
  
positive.code:   if FTarItem.ItemReadOnly then { Read Only - Do Not Save }
      Exit;
    FTarItem.Magic := AnsiString(Value);
    Move(Value[1], PTarHeader.Magic, SizeOf(TMagicRec));
    FTarItem.Dirty := True;
  end;
  
  
negative.code:     procedure DetectHeaderFormat; { Helper to stuff HeaderFormat }
      procedure GetFileNameFromHeaders; { Helper to pull name from Headers }
      procedure GetLinkNameFromHeaders; { Helper to pull name from Headers }
      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);
  