JSONObject에 Array 추가하기

uses
  .., JSON;

var
  jsonObj: TJSONObject;
  jsonArrObj: TJSONObject;
  jsonArr: TJSONArray;
begin
  jsonObj := TJSONObject.Create;

  jsonArr := TJSONArray.Create;
  for I := 0 to 10 do begin
   jsonArrObj := TJSONObject.Create;
   jsonArrObj.AddPair('Count', TJSONNumber.Create(I));
   jsonArr.AddElement(jsonArrObj);
  end;

  jsonObj.AddPair('Array', jsonArr);
end;