anchor.diff:      begin
         PHeader := FTarHeaderList.Items[i];
         { Save off old Check sum }
  -      Move(PHeader.ChkSum, TarChkSumArr, sizeof(PHeader.ChkSum));
  -      TarChkSum := OctalToInt(TarChkSumArr, sizeof(TarChkSumArr));
  +      Move(PHeader.ChkSum, TarChkSumArr, SizeOf(PHeader.ChkSum));
  +      TarChkSum := OctalToInt(TarChkSumArr, SizeOf(TarChkSumArr));
         { Set to Generator Value }
         PHeader.ChkSum := AB_TAR_CHKBLANKS;
         if CalcTarHeaderChkSum(PHeader^) <> TarChkSum then
           Result := False; { Pass unless one miss-compares }
         { Save back old checksum }
  -      Move(TarChkSumArr, PHeader.ChkSum, sizeof(TarChkSumArr));
  +      Move(TarChkSumArr, PHeader.ChkSum, SizeOf(TarChkSumArr));
       end;
     end;
   end;
  
positive.code:     DevMajor   : Integer;  { Major Device ID }
      DevMinor   : Integer;  { Minor Device ID }
      { Additional Types used for holding info. }
      AccessTime : int64;    { Time of Last Access, in UnixTime }
      ChangeTime : int64;    { Time of Last Status Change, in UnixTime }
      ArchiveFormat: HeaderFormat; { Type of Archive of this record }
      StreamPosition: Int64; { Pointer to the top of the item in the file. }
      Dirty      : Boolean;  { Indication if this record needs to have its headers CheckSum recalculated }
      ItemReadOnly: Boolean; { Indication if this record is READ ONLY }
  
negative.code:     function FindItem(FindFirst: Boolean): Boolean; { Tool for FindFirst/NextItem functions }
    protected
      FTarHeader      : TAbTarHeaderRec; { Speed-up Buffer only }
      FCurrItemSize   : Int64;           { Current Item size }
      FCurrItemPreHdrs: Integer;         { Number of Meta-data Headers before the Item }
    public
      destructor Destroy; override;
  