anchor.diff:    sVal: string;
     arrVal: array of TValue;
     rType: TRttiType;
  -  lEnumMethod : TRttiMethod;
  +  lEnumMethod, lCreateMethod : TRttiMethod;
     lEnumerator, AValue : TValue;
     lClearMethod : TRttiMethod;
     FField: TRttiField ;
  
positive.code:                   end;
  
                  end;
                end;
  
  
                lEnumMethod := TSvRttiInfo.GetBasicMethod('Add', rType);
                if Assigned(lEnumMethod) and Assigned(AProp) then
                begin
                  AValue := TSvRttiInfo.GetValue(AProp, AObj);
                 // AValue := AProp.GetValue(AObj);
                  lClearMethod := TSvRttiInfo.GetBasicMethod('Clear', rType);
                  if Assigned(lClearMethod) and (Length(lClearMethod.GetParameters) = 0) then
  
negative.code:   ADst: TDataSet;
    jArr: TJSONArray;
    fld: TField;
    bCreated: Boolean;
  begin
    Skip := False;
    bCreated := False;
    AValue := TValue.Empty;
    if Assigned(AFrom) then
    begin
      if AFrom is TJSONNumber then
  