Problemas al Graficar ¡Ayuda!

[Alexita22]

Hola a todos ojala puedan ayudarme ya que estoy desesperada con este problema que no puedo resolver y el tiempo se me agota para entregar este proyecto mi consulta es la siguiente:

Trabajo en delphi 7 y Mysql intento graficar los datos de una tabla llamada inspeccion pero la forma en que pretendo hacerlo es atravez de una consulta que yo pidiendo el dato despliegue la informacion en un DBgrid y de estos realizar la grafica. Lo que consegui es hacerlo de forma que sin pedir los datos me muestre los registro en el DBgrid y graficar estos. Utilize un ADOTable, un ADOConnection y un Datasource, el codigo de la grafica lo coloco en el evento AfterScroll del AdoTable y me muestra la grafica de los registros, el problema en si esta cuando agrego un Query para hacer la consulta que les menciono, me muestra los datos en el DBgrid pero no me grafica. Disculpen si el mensaje esta muy grande pero creo que debo explicar lo mas que pueda.
El codigo es el siguiente:

procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
var
i, b, m, n : Integer;
begin
b := 0;
m := 0;
n := 0;
for i := 7 to DBGrid1.Columns.Count - 1 do
begin
if DBGrid1.Columns.Items[i].Field.AsString = 'B' then
Inc(b,1);
if DBGrid1.Columns.Items[i].Field.AsString = 'M' then
Inc(m,1);
if DBGrid1.Columns.Items[i].Field.AsString = 'NA' then
Inc(n,1);
end;
b := (b*100) div 10;
m := (m*100) div 10;
n := (n*100) div 10;
Chart1.SeriesList.Series[0].Clear;
Chart1.SeriesList.Series[0].AddArray([b,m,n]);
end;
El DBgrid se conecta al DataSource y la propiedad Dataset al AdoTable.
Disculpas nuevamente y espero su respuesta ojala me haya explicado