Нарушение доступа по адресу . в модуле

void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
double Dat[100];
double I[100][100];
int i=0;
for (int i=0; i<=ADOTable1->RecordCount; i++)
{
DBGrid1->DataSource->DataSet->RecNo=i+1; // //DataSource - Источник данных для визуальных компонентов (посредник TDataSet)
//DataSet - Управляет связями
//RecNO - номер текущей выделеной строки
//Fields - получает доступ к значений в поле
Dat[i]=DBGrid1->Fields[0]->AsFloat;
}
for( int j=0; j<=ADOTable1->FieldCount; j++)
{
I[i][j]=DBGrid1->Fields[j+1]->AsFloat;
}
Series2->Clear();
for (int i=0; i<=ADOTable1->RecordCount; i++)
Series2->AddXY(Dat[i], I[i][ListBox1->ItemIndex],Dat[i]) ;
DBChart1->Refresh();
}

for( int j=0; j<=ADOTable1->FieldCount; j++) // мало того, что FieldCount - это на 1 больше чем нужно
{
I[i][j]=DBGrid1->Fields[j+1]->AsFloat; // так еще и j + 1, то есть, на предпоследней и последней итерациях - вылет за пределы коллекции
}

void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
  Chart1->Series[0]->Clear();
  ADOTable1->First();
  while(!ADOTable1->Eof)
   {
     Chart1->Series[0]->AddXY(ADOTable1->FieldByName("ID")->AsFloat,
                              ADOTable1->FieldByName(ListBox1->Items->Strings[ListBox1->ItemIndex])->AsFloat);
     ADOTable1->Next();
   }
  Chart1->Refresh();
}