var   MyForm:TclForm;   testChart : TClChart;   simpleJSONStr : String;  {    MyForm = TclForm.Create(Self);   testChart = MyForm.AddNewChart(MyForm,'testChart','Samsoong');   simpleJSONStr = '[{ "DeviceType": "Notebook","Percent": 50,"color":"clOrange"},{"DeviceType" : "Tablet","Percent": 35,"color":"clPink"},{"DeviceType" : "Phone","Percent": 73,"color":"clTomato"}]';    testChart.Charttype = clCBar;   testChart.XAxisText = 'DeviceType';   testChart.ChartItemText = 'Device Sales';   testChart.ChartItemsValue = 'Percent';   testChart.ChartTitle = 'Samsoong Inc';   testChart.clLoadDataFromJSONStr(simpleJSONStr);   MyForm.Run;  }