anchor.diff:      fCount: Integer;
     private
       function LockedAddValue(const aValue: string; const aDataType: TFieldType; const aCount: Integer): Boolean; override;
  +  public
       function Open: Boolean; override;
       function SQLProperties(aTableAlias: string): string; override;
     end;
  
positive.code:   for objectPropTable in fTables.Values do
      if objectPropTable.ContainsProperty(aPropertyName) then
      begin
        Result := True;
        aObjectPropTable := objectPropTable;
        exit(True);
      end;
  
negative.code:   aJSONProperties: TJSONArray);
  var
    objectPropTable: TUSObjectPropTable;
    jsonProperty, jsonName: TJSONValue;
    commitTable: TUSCommitTable;
  begin
    fObjectProperties := aObjectProperties;
  