Подсчёт общей стоимости материалов

void __fastcall TForm4::Button1Click(TObject *Sender)
{
int N, N1, N2, N3, N4, N5, N6, N7, F;
 
for(DBGrid1->DataSource->DataSet->First(); !DBGrid1->DataSource->DataSet->Eof; DBGrid1->DataSource->DataSet->Next())
{
    N = StrToInt(DBGrid1->Fields[2]->AsString);
    N1 = StrToInt(DBGrid1->Fields[3]->AsString);
    N2 = StrToInt(DBGrid1->Fields[4]->AsString);
    N3 = StrToInt(DBGrid1->Fields[5]->AsString);
    N4 = StrToInt(DBGrid1->Fields[6]->AsString);
    N5 = StrToInt(DBGrid1->Fields[7]->AsString);
    N6 = StrToInt(DBGrid1->Fields[8]->AsString);
    N7 = StrToInt(DBGrid1->Fields[9]->AsString);
}
//---------------------------------------------------------------------------
}

void __fastcall TForm3::Button1Click(TObject *Sender)
{
   Memo1->Lines->Clear();
   String fPrice = ADOTable1->Fields->Fields[9]->FieldName;
   for(int i = 2; i < 9; i++) {
      String s = ADOTable1->Fields->Fields[i]->FieldName;
      int Summ = 0;
      for(ADOTable1->First(); !ADOTable1->Eof; ADOTable1->Next())
         Summ += ADOTable1->FieldByName(s)->AsInteger * ADOTable1->FieldByName(fPrice)->AsInteger;
      Memo1->Lines->Add(String().sprintf(L"%s - %d", s, Summ));
   }
}