unit Unit1;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,DBXJSON;

type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

const

  GJSONString =

    '{' +

    '    "name": {'+

    '        "A JSON Object": {' +

    '          "id": "1"' +

    '        },' +

    '        "Another JSON Object": {' +

    '          "id": "2"' +

    '        }' +

    '    },' +

    '    "totalobjects": "2"' +

    '}';

procedure TForm1.Button1Click(Sender: TObject);

var

  LJSONObject: TJSONObject;

  Value: TJSONValue;

begin

  LJSONObject := nil;

  try

    LJSONObject := TJsonObject.Create;

    Value := TJSONValue.Create;

    { convert String to JSON }

    LJSONObject.Parse(BytesOf(GJSONString), 0);

    Value :=LJSONObject.GetValue('name');

    ShowMessage(Value.ToString);

  finally

    LJSONObject.Free;

  end;

end;

end.