anchor.diff:      tkInt64 :
         Result:=TJSONInt64Number.Create(GetOrdProp(AObject,PropertyInfo));
       tkQWord :
  -      Result:=TJSONInt64Number.Create(GetOrdProp(AObject,PropertyInfo));
  -    tkObject,
  +      Result:=TJSONFloatNumber.Create(GetOrdProp(AObject,PropertyInfo));
  +    tkObject :
  +      Result:=ObjectToJSON(GetObjectProp(AObject,PropertyInfo));
       tkArray,
       tkRecord,
       tkInterface,
  
positive.code:       begin
          J:=JSON.IndexOfName(PreparePropName(Pil.Items[i]^.Name),FCaseInsensitive);
          If (J<>-1) then
            RestoreProperty(AObject,PIL.Items[i],JSON.Items[J])
          else
            //RestoreProperty(AObject,PIL.Items[i],nil)
        end;
      finally
        FreeAndNil(PIL);
      end;
  
negative.code:         FOnPropError(Self,AObject,PropInfo,PropData,E,B);
          If Not B then
            Raise;
          end
        else if Not (jdoIgnorePropertyErrors in Options) then
          Raise;
    end;
  end;
  
  