Delphi 2007是一種常用的開發工具，它可以幫助開發者構建高效、安全、易于維護的應用程序。現在，Delphi 2007還支持JSON，可以處理和生成JSON數據。

procedure TForm1.Button1Click(Sender: TObject);
var
JSONObject: TJSONObject;
begin
JSONObject := TJSONObject.Create;
try
JSONObject.AddPair(TJSONPair.Create('name', 'Tom'));
JSONObject.AddPair(TJSONPair.Create('age', TJSONNumber.Create(25)));
Memo1.Lines.Add(JSONObject.ToString);
finally
JSONObject.Free;
end;
end;

以上是一個簡單的例子，它創建了一個名為JSONObject的TJSONObject對象，并向其中添加了名為name和age的鍵值對。最后，它將JSONObject序列化為字符串，并將其添加到了Memo1控件中。

Delphi 2007還提供了一些其他的JSON處理功能，包括解析JSON數據和獲取JSON節點的值。這些功能可以幫助開發者更輕松地處理JSON數據。

var
JSONValue: TJSONValue;
JSONArray: TJSONArray;
begin
// 解析JSON字符串
JSONValue := TJSONObject.ParseJSONValue('{"name":"Tom","age":25}');
try
// 獲取指定鍵的值
Memo1.Lines.Add(JSONValue.GetValue('name'));
Memo1.Lines.Add(JSONValue.GetValue('age').ToString);
finally
JSONValue.Free;
end;
// 獲取JSON數組中指定序號的節點值
JSONArray := TJSONArray.Create;
try
JSONArray.Add(TJSONNumber.Create(1));
JSONArray.Add(TJSONNumber.Create(3));
JSONArray.Add(TJSONNumber.Create(5));
Memo1.Lines.Add(JSONArray.Items[1].Value.ToString);
finally
JSONArray.Free;
end;
end;

總的來說，Delphi 2007對JSON的支持可以為開發者提供便捷的JSON處理方式，使得開發更加高效。