anchor.diff:            for f in Context.GetType(Value.AsObject.ClassType).GetFields do
               if f.FieldType <> nil then
               begin
  +              if GetFieldDisabled(f) then
  +                continue;
                 v := TValue.Empty;
                 Result := FromJson(f.FieldType.Handle, GetFieldDefault(f, obj.AsObject[GetFieldName(f)]), v);
                 if Result then
  
positive.code: {$ELSE}
          p := TValueData(Value).FValueData.GetReferenceToRawData;
  {$ENDIF}
          Result := FromJson(f.FieldType.Handle, GetFieldDefault(f, obj.AsObject[GetFieldName(f)]), v);
          if Result then
            f.SetValue(p, v) else
  
negative.code: {$ELSE}
        v := f.GetValue(TValueData(Value).FValueData.GetReferenceToRawData);
  {$ENDIF}
        if GetFieldDisabled(f) then
            continue;
        Result.AsObject[GetFieldName(f)] := ToJson(v, index);
      end;
    end;
  