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;
 
 }