Delphi是一款廣泛使用的編程語言，可以完成各種任務，包括web編程。在web開發中，JSON格式數據是經常使用的數據格式之一。

var
jsonStr: String;
jsonObj: TJSONObject;
jsonArray: TJSONArray;
begin
jsonStr := '{"name": "John", "age": 30, "city": "New York"}';
jsonObj := TJSONObject.ParseJSONValue(jsonStr) as TJSONObject;
if Assigned(jsonObj) then
begin
try
ShowMessage('Name: ' + jsonObj.GetValue('name').Value);
ShowMessage('Age: ' + jsonObj.GetValue('age').Value);
ShowMessage('City: ' + jsonObj.GetValue('city').Value);
finally
jsonObj.Free;
end;
end;
jsonArray := TJSONArray.Create;
jsonArray.Add(TJSONObject.Create(['name', 'John', 'age', 30, 'city', 'New York']));
jsonArray.Add(TJSONObject.Create(['name', 'Peter', 'age', 40, 'city', 'Los Angeles']));
jsonArray.Add(TJSONObject.Create(['name', 'Mary', 'age', 25, 'city', 'Chicago']));
jsonStr := jsonArray.ToJSON;
ShowMessage(jsonStr);
end;

以上代碼演示了如何在Delphi中使用JSON格式數據。首先，我們可以使用TJSONObject.ParseJSONValue方法將JSON字符串轉換為TJSONObject對象，然后使用TJSONObject.GetValue方法獲取對象中的值。我們還可以使用TJSONArray.Create方法創建一個JSONArray對象，并使用TJSONObject.Create方法創建一個包含Key/Value鍵值對的JSONObject對象，并使用TJSONArray.Add方法將該對象添加到JSONArray中。最后，我們可以使用TJSONArray.ToJSON方法將JSONArray對象轉換為JSON字符串。