uses System.JSON;


procedure TForm1.Button1Click(Sender: TObject);
var
  JSONObject, JSONObject1: TJSONObject; // JSON类
  jsonArray: TJSONArray; // JSON数组变量
begin
  JSONObject := TJSONObject.Create;
  JSONObject.AddPair('TestDate', datetimetostr(now));
  jsonArray := TJSONArray.Create;
  JSONObject.AddPair('Detail', jsonArray);
  JSONObject1 := TJSONObject.Create;
  JSONObject1.AddPair('ChannelNo', 'Test');
  JSONObject1.AddPair('Value', '100');
  jsonArray.Add(JSONObject1);
  JSONObject1 := TJSONObject.Create;
  JSONObject1.AddPair('ChannelNo', 'Test2');
  JSONObject1.AddPair('Value', '50');
  jsonArray.Add(JSONObject1);
  Memo1.Text := JSONObject.ToJSON;
end;