如何在Delphi 10.3中解析这个json数据？

uses
  System.JSON;

procedure ParseJSONData(const jsonData: string);
var
  jsonObject: TJSONObject;
  jsonArray: TJSONArray;
  jsonValue: TJSONValue;
  i: Integer;
begin
  jsonObject := TJSONObject.ParseJSONValue(jsonData) as TJSONObject;
  try
    // 解析顶层JSON对象
    if Assigned(jsonObject) then
    begin
      // 解析字符串属性
      if jsonObject.TryGetValue<string>('name', jsonValue) then
        ShowMessage('Name: ' + jsonValue.Value);

      // 解析整数属性
      if jsonObject.TryGetValue<Integer>('age', jsonValue) then
        ShowMessage('Age: ' + IntToStr(jsonValue.Value));

      // 解析嵌套的JSON对象
      if jsonObject.TryGetValue<TJSONObject>('address', jsonValue) then
      begin
        // 解析嵌套对象的属性
        if jsonValue.TryGetValue<string>('city', jsonValue) then
          ShowMessage('City: ' + jsonValue.Value);
        if jsonValue.TryGetValue<string>('country', jsonValue) then
          ShowMessage('Country: ' + jsonValue.Value);
      end;

      // 解析JSON数组
      if jsonObject.TryGetValue<TJSONArray>('hobbies', jsonArray) then
      begin
        for i := 0 to jsonArray.Count - 1 do
        begin
          jsonValue := jsonArray.Items[i];
          if Assigned(jsonValue) then
            ShowMessage('Hobby: ' + jsonValue.Value);
        end;
      end;
    end;
  finally
    jsonObject.Free;
  end;
end;