anchor.diff:  
           if Assigned(AJsonVal) and (AJsonVal is TJSONObject) then
           begin
  -          FMainObj := TJSONObject(AJsonVal);
  +          FMainObj := TJSONObject(AJsonVal);          
           end;
         end;
         
  
positive.code:   obj: TObject;
    AValue, lEnumerator: TValue;
    bCreated: Boolean;
    lEnumMethod, lClearMethod, lGetEnumMethod, lGetCurrentMethod: TRttiMethod;
    AParams: TArray<TRttiParameter>;
    lEnumType: TRttiType;
    lCurrentProp: TRttiProperty;
  begin
    bCreated := False;
    AValue := TValue.Empty;
  
negative.code:               if Assigned(obj) then
                begin
                  AValue := obj;
                  bCreated := True;
                end;
              end;
  