StringGrid, вычислить сумму элементов и среднее арифметическое

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
int a[5];
int i;
double summa, sred;
 
for(i=1; i<=6; i++)
{
if(Length(StringGrid1->Cells[i-1,0])!=0)
 {
    a[i]=StrToFloat(StringGrid1->Cells[i-1,0]);
  }
else a[i]=0;
   summa=0;
   for(i=1; i<=6; i++)
   {
   summa=summa+a[i];
   sred=summa/5;
   }
}
Label2->Caption= "сумма элементов:"  +   FloatToStr(summa)+
     "арифметическое среднее:"  +  FloatToStr(sred);
 
 
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
double summ=0;
double sr=0;
for (int i=0; i<StringGrid1->ColCount; i++)
{
summ+=StrToFloat(StringGrid1->Cells[i][0]);
}
sr=summ/int(StringGrid1->ColCount);
Memo1->Lines->Add("Сумма:"+FloatToStr(summ));
Memo1->Lines->Add("Среднее арифметическое:"+FloatToStr(sr));
}