Delphi 是一種非常流行的編程語言，被廣泛用于 Windows 平臺上的應用程序開發。其中，JSON 數據格式的處理是開發中必不可少的一個環節。JSON（JavaScript Object Notation）是一種輕量級的數據交換格式，易于讀寫、編解碼，適用于數據傳輸的場景。

在 Delphi 中，處理 JSON 數據需要使用擴展庫System.JSON，其中提供了一系列相關的對象和函數。其中，TJSONObject.AddPair方法是一個非常重要的函數，可以往 JSON 對象中添加一對鍵值對。

function AddPair(const Str: TJSONString; const Val: TJSONValue): TJSONPair; overload;
function AddPair(const Str: string; const Val: TJSONValue): TJSONPair; overload;

該函數包含兩個重載的版本，第一個參數是字符串類型，代表鍵名；第二個參數是 TJSONValue 類型，代表鍵值。函數返回一個 TJSONPair 對象，表示增加的一組鍵值對。

舉個例子：

procedure TForm1.Button1Click(Sender: TObject);
var
JsonObj: TJSONObject;
Pair: TJSONPair;
begin
JsonObj := TJSONObject.Create;
try
Pair := JsonObj.AddPair('name', 'John Doe');
Pair := JsonObj.AddPair('age', TJSONNumber.Create(30));
Pair := JsonObj.AddPair('isMarried', TJSONBool.Create(True));
ShowMessage(JsonObj.ToJSON);
finally
JsonObj.Free;
end;
end;

以上代碼就往一個TJSONObject對象中添加了三組鍵值對，分別是名稱、年齡和婚姻狀況，并輸出整個 JSON 對象的內容。

總之，使用 Delphi 處理 JSON 數據時，TJSONObject.AddPair方法是一項非常重要的技能，需要不斷地實踐和掌握。