¿Cómo crear un grafico TChart en base a un ADOQuery?

[ecfisa]

Hola ciudad54.

Usando un TChart vas a tener que recorrer el resultado de tu consulta. Un ejemplo al vuelo:

Código Delphi [-]
procedure MakeChart(aDataSet: TDataSet; Chart: TChart);
var
  bs: TBarSeries;
begin
  aDataSet.First;
  bs := TBarSeries.Create(Chart);
  while not aDataSet.Eof do
  begin
    bs.Add(aDataSet.FieldByName('TOTALARS').AsInteger,
      aDataSet.FieldByName('DETALLE').AsString, clRed);
    Chart.AddSeries(bs);
    aDataSet.Next;
  end;
end;

// Llamada:
...
begin
  MakeChart(IBQuery1, Chart1);
...

Saludos