anchor.diff:      property Tagged : Boolean
         read FTagged
         write FTagged;
  -    property UncompressedSize : LongInt
  +    property UncompressedSize : Int64
         read GetUncompressedSize
         write SetUncompressedSize;
   
  
positive.code:   Result := False;
  end;
  { -------------------------------------------------------------------------- }
  procedure TAbArchiveItem.SetCompressedSize(const Value : LongInt);
  begin
    FCompressedSize := Value;
  end;
  
negative.code:   Result := ExtractFilePath(DiskFileName);
  end;
  { -------------------------------------------------------------------------- }
  function TAbArchiveItem.GetUnCompressedSize : Int64;
  begin
    Result := FUnCompressedSize;
  end;
  