Ошибка во время вычисления программы

void __fastcall TFrmVpl::Btn21Click(TObject *Sender)
{
     FrmVpl->PgCont1->Pages[1]->Show();
     StGr2->FixedCols=0;
     StGr2->FixedRows=0;
     StGr2->ColCount=a11;    
     StGr2->RowCount=b11;        
     for(i=0;i<FrmVpl->StGr1->ColCount;i++)  
        for(j=0;j<FrmVpl->StGr1->RowCount;j++){  
           sum1+=StrToFloat(StGr1->Cells[j]);  
        }
        sum1=sum1/(FrmVpl->StGr1->ColCount*FrmVpl->StGr1->RowCount);
        Lbl12_6->Caption=String(sum1);
        for(i=0;i<FrmVpl->StGr1->ColCount-1;i++)    
           for(j=0;j<FrmVpl->StGr1->RowCount-1;j++){    
              sum2=StrToFloat(StGr1->Cells[j])+StrToFloat(StGr1->Cells[j+1])+
                   StrToFloat(StGr1->Cells[i+1][j])+StrToFloat(StGr1->Cells[i+1][j+1]);
              sum3=sum2/4;    
              FrmVpl->StGr2->Cells[j]=sum1-sum3;
              FrmVpl->StGr2->Cells[j]=(a1/(FrmVpl->StGr1->ColCount)*(b1/(FrmVpl->StGr1->RowCount))*(sum1-sum3));
            }
            //
           if((a1/(FrmVpl->StGr1->ColCount)*(b1/(FrmVpl->StGr1->RowCount))*(sum1-sum3))>0.0)
           {
                    vpos+=StrToFloat(FrmVpl->StGr2->Cells[j]);
            }
              else if((a1/(FrmVpl->StGr1->ColCount)*(b1/(FrmVpl->StGr1->RowCount))*(sum1-sum3))<0.0)
              {
                      srezka+=StrToFloat(FrmVpl->StGr2->Cells[j]);
              }
              matr=vpos-srezka;
           Lbl1_3->Caption="Общий объём:\n" + String(matr)+"Объём посыпки:\n"+
           String(vpos); //Объём срезки:\n"+
           //String(srezka);
}