Delphi是一個優秀的編程語言，它支持很多常見的數據格式，包括JSON。JSON是一種輕量級的數據格式，在互聯網應用中被廣泛使用。在Delphi中，我們可以使用一些庫來實現將對象序列化成JSON格式，或者將JSON反序列化成對象。

我們可以使用Delphi的TJSONObject和TJSONPair類來構造JSON對象。TJSONObject表示一個JSON對象，TJSONPair表示一個JSON對象的鍵值對。TJSONObject可以包含多個TJSONPair，用來表示一個完整的JSON對象。

var
LJSONObject: TJSONObject;
LJSONPair1, LJSONPair2: TJSONPair;
begin
// 創建JSON對象
LJSONObject := TJSONObject.Create;
// 創建JSON鍵值對
LJSONPair1 := TJSONPair.Create('name', '張三');
LJSONPair2 := TJSONPair.Create('age', 30);
// 將鍵值對添加到JSON對象中
LJSONObject.AddPair(LJSONPair1);
LJSONObject.AddPair(LJSONPair2);
// 將JSON對象轉換成字符串
ShowMessage(LJSONObject.ToString);
// 釋放資源
LJSONObject.Free;
end;

上面的代碼中，我們先創建了一個TJSONObject對象，并創建了兩個TJSONPair對象，分別表示一個人的姓名和年齡。然后將兩個TJSONPair對象添加到TJSONObject對象中，并將其轉換成字符串，最后釋放資源。

除了使用TJSONObject和TJSONPair類外，我們還可以使用第三方庫來序列化對象成JSON格式，例如SuperObject和REST.Json。以SuperObject為例，我們可以使用TSuperObject類來序列化和反序列化JSON。

var
LPerson: TPerson;
LSO: TSuperObject;
LJSON: string;
begin
// 創建一個Person對象
LPerson := TPerson.Create;
LPerson.Name := '張三';
LPerson.Age := 30;
try
// 序列化Person對象成JSON字符串
LSO := TSuperObject.Create(LPerson);
LJSON := LSO.AsJSon(True);
// 輸出JSON字符串
ShowMessage(LJSON);
// 反序列化JSON字符串成Person對象
LPerson := TSuperObject.Create(LJSON).AsObject as TPerson;
ShowMessage(LPerson.Name + '，' + IntToStr(LPerson.Age));
finally
LSO.Free;
LPerson.Free;
end;
end;

上面的代碼中，我們先創建了一個TPerson對象，并設置了姓名和年齡。然后使用TSuperObject類將TPerson對象序列化成JSON字符串，并輸出JSON字符串。最后將JSON字符串反序列化成TPerson對象，并輸出其屬性值。