DelphiXE3是一種編程語言和開發環境，用于創建各種應用程序。其中，JSON是一種輕量級的數據交換格式，已經成為現代應用程序的一個主要組成部分。在DelphiXE3中，我們可以使用TJSONObject和TJSONValue類來處理JSON數據。

procedure TForm1.btnParseJsonClick(Sender: TObject);
var
jsonArray: TJSONArray;
jsonObject: TJSONObject;
jsonValue: TJSONValue;
i: Integer;
begin
jsonArray := TJSONObject.ParseJSONValue(Encoding.UTF8.GetBytes(Memo1.Text), 0) as TJSONArray;
for i := 0 to jsonArray.Count - 1 do
begin
jsonObject := jsonArray.Items[i] as TJSONObject;
jsonValue := jsonObject.GetValue('name');
Memo2.Lines.Add(jsonValue.Value);
jsonValue := jsonObject.GetValue('age');
Memo2.Lines.Add(jsonValue.Value);
end;
end;

上面的代碼演示了如何使用TJSONObject.ParseJSONValue方法解析JSON數據，并遍歷其中的內容。在處理JSON數據之前，我們需要將其轉換為字節數組，然后通過TJSONObject.ParseJSONValue方法創建一個TJSONArray對象。

TJSONObject和TJSONValue類提供了許多方法來獲取、添加和修改JSON數據。我們可以使用SetValue方法將一個TJSONValue對象設置為TJSONObject的屬性值，也可以使用Add方法將一個TJSONValue對象添加到TJSONArray中。

procedure TForm1.btnCreateJsonClick(Sender: TObject);
var
jsonArray: TJSONArray;
jsonObject: TJSONObject;
jsonValue: TJSONValue;
begin
jsonArray := TJSONArray.Create;
jsonObject := TJSONObject.Create;
jsonValue := TJSONString.Create('Tom');
jsonObject.SetValue('name', jsonValue);
jsonValue := TJSONNumber.Create(20);
jsonObject.SetValue('age', jsonValue);
jsonArray.Add(jsonObject);
jsonObject := TJSONObject.Create;
jsonValue := TJSONString.Create('Jerry');
jsonObject.SetValue('name', jsonValue);
jsonValue := TJSONNumber.Create(22);
jsonObject.SetValue('age', jsonValue);
jsonArray.Add(jsonObject);
Memo1.Lines.Text := jsonArray.ToJSON;
end;

上面的代碼演示了如何創建一個JSON數據。我們首先創建一個TJSONArray對象，然后創建兩個TJSONObject對象，并在每個TJSONObject對象中添加兩個屬性，最后將它們添加到TJSONArray對象中。最后，我們使用TJSONArray的ToJSON方法將其轉換為一個JSON字符串并顯示在Memo控件中。