из StringGrid в Chart

void __fastcall TFrmVpl::Btn20Click(TObject *Sender)
{
     a1=Edit4->Text.ToDouble(); 
     b1=Edit5->Text.ToDouble(); 
     a11=Edit6->Text.ToInt();  
     b11=Edit7->Text.ToInt(); 
     StGr1->FixedCols=0; /
     StGr1->FixedRows=0;
     StGr1->ColCount=a11+1;       
     StGr1->RowCount=b11+1;       
     for(i=0;i<StGr1->ColCount;i++)
       for(j=0;j<StGr1->RowCount;j++)
        StGr1->Cells[i][j];
 
}
void __fastcall TFrmVpl::Btn22Click(TObject *Sender)
{
        FrmVpl->PgCont1->Pages[1]->Show();
        int s;
        for(s=0;s<(a11+b11+2);s++)
        FrmVpl->Chart1->Series[i]->AddXY(StGr1->Cells[i][i];" ";clRed);//здесь 2 ошибки
}
int i,j,a11,b11;
double a1,b1,sum1,sum2,sum3,sum,dh;
double matr;
void __fastcall TFrmVpl::Btn21Click(TObject *Sender)
{
     FrmVpl->PgCont1->Pages[2]->Show();
     StGr2->FixedCols=0;
     StGr2->FixedRows=0;
     StGr2->ColCount=a11;       //задаем размер по ширине
     StGr2->RowCount=b11;       //задаем размер по длине
     for(i=0;i<FrmVpl->StGr1->ColCount-1;i++){    //столбец
       for(j=0;j<FrmVpl->StGr1->RowCount-1;j++){    //строка
         sum1=StrToFloat(StGr1->Cells[i][j])+
                StrToFloat(StGr1->Cells[i][j+1]);
         sum2=StrToFloat(StGr1->Cells[i+1][j])+
                StrToFloat(StGr1->Cells[i+1][j+1]);
         sum3=(sum1+sum2)/4;    //средняя отметка каждой ячейки
         matr+=StrToFloat(StGr1->Cells[i][j]);  //сложение каждой ячейки(здесь третья ошибка)
         sum=matr/((a11+1)*(b11+1));    //общая средняя отметка
         dh=sum-sum3;   //средняя отметка ячейки
         //if(dh>0){
 
         //}
         FrmVpl->StGr2->Cells[i][j]=dh;
 
       }}
}

        const double dAXVal = 0.0;
    const double dAYVal = 0.0;
    const AnsiString sLabel = "";
    const TColor Color1 = clRed;
    Chart1->Series[0]->AddXY(dAXVal, dAYVal, sLabel, Color1);

const double dCell = StGr1->Cells[i][j].ToDouble();