procedure TFViewDashboard.BuscarEmpresas;
procedure OnResult(Response: TXDataClientResponse);
begin
notaDataset.Close;
notaDataset.SetJsonData(TJSObject(Response.Result)['value']);
notaDataset.Open;
valax := string(TJSObject(Response.Result)['value']);
asm
am4core.useTheme(am4themes_animated);
var chart = am4core.create("grafico3", am4charts.XYChart);
chart.data = [[{
"year": 2005,
"income": 23.5},
{
"year": 2006,
"income": 26.2,}] <<<<<<<<<<<<<<< replace here
end;
begin
XDataClient.RawInvoke('IModelDashboard.CurvaABCEmpresa', [10, 0, ''], @OnResult);
end;