int i = 0;
int datos = 0;
while (!Data->ADOQuery8->Eof)
{
Cantidad[i] = Data->ADOQuery8->FieldByName("Cantidad")->AsFloat;
i++;
datos++;
Data->ADOQuery8->Next();
}
DBChart1->AddSeries(&TBarSeries(this));
DBChart1->Series[0]->Active = true;
for (i=0; i < datos; i++)
DBChart1->Series[0]->Add(Cantidad[i],"",clBlue);