anchor.diff:      property Values[const name: string]: Variant read GetValue; default;
   
       procedure FromRecord<T: record>(ARecord: T); overload;
  -    procedure FromRecord(ARecord: TValue); overload;
  +    procedure FromRecord(const ARecord: TValue); overload;
       function ToRecord<T: record>: T; overload;
       function ToRecord(const ARecordType: TRttiType): TValue; overload;
   
  
positive.code: end;
  
  function TJSONObjectHelper.ToRecord(const ARecordType: TRttiType): TValue;
  begin
    raise Exception.Create('Not yet implemented');
  end;
  
  function TJSONObjectHelper.ToRecord<T>: T;
  
negative.code:     Result := LValue.AsDouble;
  end;
  
  procedure TJSONObjectHelper.FromRecord(const ARecord: TValue);
  var
    LType: TRttiType;
    LField: TRttiField;
  