Delphi中的JSON拼裝是一項非常重要的技能，在進行WEB開發和移動應用開發時經常會用到。

下面我們演示一個使用Delphi對JSON進行拼裝的例子。

function BuildJson: string;
var
json: TJSONObject;
jsonArray: TJSONArray;
begin
json := TJSONObject.Create;
try
json.AddPair('name', 'Jack');
json.AddPair('age', 25);
jsonArray := TJSONArray.Create;
jsonArray.Add('reading');
jsonArray.Add('music');
jsonArray.Add('coding');
json.AddPair('hobby', jsonArray);
Result := json.ToJSON;
finally
json.Free;
end;
end;

在這個例子中，我們創建了一個TJSONObject對象，并向其中加入了三個屬性：name、age和hobby。

其中，name和age的值為字符串和數字，而hobby是一個數組。

在hobby數組中，我們添加了三個字符串：reading、music和coding。

最后，我們調用ToJSON方法將這個JSON字符串輸出出去。

通過這個例子，我們可以看到Delphi對于JSON的拼裝非常方便，可以幫助我們快速地進行數據的序列化和反序列化。