'' is not valid floating type value

//По нажатию кнопки "Вывести результат"
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[i][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[i][j])+StrToFloat(StGr1->Cells[i][j+1])+
                   StrToFloat(StGr1->Cells[i+1][j])+StrToFloat(StGr1->Cells[i+1][j+1]);
              sum3=sum2/4;    //ср. отметка кажд ячейки
              FrmVpl->StGr2->Cells[i][j]=sum1-sum3; 
              FrmVpl->StGr2->Cells[i][j]=(a1/(FrmVpl->StGr1->ColCount)*(b1/(FrmVpl->StGr1->RowCount))*(sum1-sum3));  //вывод на таблицу
            }
            //дальше ошибка вычисления и до конца
           double rst=StrToFloat(FrmVpl->StGr2->Cells[i][j]);
           if(rst>0)   //Если значения больше нуля, то складываются
           {
                    vpos+=StrToFloat(FrmVpl->StGr2->Cells[i][j]);
            }
              else if(rst<0)    //Если значения меньше, то складываются
              {
                      srezka+=StrToFloat(FrmVpl->StGr2->Cells[i][j]);
              }
              matr+=vpos-srezka;  
           Lbl1_3->Caption="Общий объём:\n" + String(matr)+"куб.м.\nОбъём посыпки:\n"+
              String(vpos)+"куб.м.\nОбъём срезки:\n"+
                 String(srezka)+"куб.м.";
}

//По нажатию кнопки "Вывести результат"
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[i][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[i][j])+StrToFloat(StGr1->Cells[i][j+1])+
                   StrToFloat(StGr1->Cells[i+1][j])+StrToFloat(StGr1->Cells[i+1][j+1]);
              sum3=sum2/4;    //ср. отметка кажд ячейки
              FrmVpl->StGr2->Cells[i][j]=sum1-sum3; 
              FrmVpl->StGr2->Cells[i][j]=(a1/(FrmVpl->StGr1->ColCount)*(b1/(FrmVpl->StGr1->RowCount))*(sum1-sum3));  //вывод на таблицу
           double x=(a1/(FrmVpl->StGr1->ColCount)*(b1/(FrmVpl->StGr1->RowCount))*(sum1-sum3));
           //FormatFloat("0.000",x));
           if(x>0.0)
           {
                    vpos+=(a1/(FrmVpl->StGr1->ColCount)*(b1/(FrmVpl->StGr1->RowCount))*(sum1-sum3));
            }
              else if(x<0.0)
              {
                      srezka+=(a1/(FrmVpl->StGr1->ColCount)*(b1/(FrmVpl->StGr1->RowCount))*(sum1-sum3));
              }
            }   //Здесь переместила скобку от for(...)
            matr+=vpos-srezka;
            AnsiString smatr=FormatFloat("0.000",matr);
            AnsiString svpos=FormatFloat("0.000",vpos);
            AnsiString ssrezka=FormatFloat("0.000",srezka);
            matr+=vpos-srezka;  
           Lbl1_3->Caption="Общий объём:\n" + String(matr)+"куб.м.\nОбъём посыпки:\n"+
              String(vpos)+"куб.м.\nОбъём срезки:\n"+
                 String(srezka)+"куб.м.";
}