Delphi是一個非常流行的編程語言，被廣泛應用于Windows應用程序開發。在現代Web應用程序中，數據交換格式通常采用JSON（JavaScript Object Notation），因此轉換Delphi數據為JSON格式是非常有用的技能。

procedure TForm1.Button1Click(Sender: TObject);
var
js: TJSONObject;
item: TJSONObject;
arr: TJSONArray;
value: String;
begin
js := TJSONObject.Create;
try
js.AddPair(TJSONPair.Create('name', 'Tom'));
js.AddPair(TJSONPair.Create('age', TJSONNumber.Create(25)));
arr := TJSONArray.Create;
item := TJSONObject.Create;
item.AddPair(TJSONPair.Create('name', 'apple'));
item.AddPair(TJSONPair.Create('price', TJSONNumber.Create(3.5)));
arr.Add(item);
item := TJSONObject.Create;
item.AddPair(TJSONPair.Create('name', 'banana'));
item.AddPair(TJSONPair.Create('price', TJSONNumber.Create(2.5)));
arr.Add(item);
js.AddPair(TJSONPair.Create('products', arr));
value := js.ToString;
Memo1.Text := value;
finally
js.Free;
end;
end;

在上面的代碼中，我們使用了Delphi中的TJSONObject、TJSONArray和TJSONPair類來構造一個JSON對象。首先，我們創建了一個TJSONObject對象，然后添加了兩個屬性：name和age。接著，我們創建了一個TJSONArray對象，將兩個商品（蘋果和香蕉）以JSON對象的形式添加到該數組中。最后，將該JSON對象轉換為字符串，然后顯示在一個多行編輯框（Memo）上。

上述示例代碼僅僅是JSON轉換的基礎，實際上在開發Web應用時，我們通常需要將復雜的數據結構轉換為JSON格式。但是，Delphi的JSON處理類庫已經提供了足夠的靈活性和可擴展性，使得開發人員可以輕松地進行JSON數據轉換。