Вычислить сумму в БД

[lady.ulumba]

Не могу сообразить,как вычислить сумму количества покупок.(т.е. в поле количество 1+2+1+1)
Код написан на Button12,выводит в Edit7. Ошибка в том, что не распознает значение таблицы ни в float, ни в int.
Структура таблицы:DM- DataModule
tb-название таблицы
Kol -название поля

int sum=0;
  if(PageControl1->ActivePage==TabSheet1)
  while (!DM->tb->Eof)
{
sum=sum+StrToInt(DM->tbKol->AsString);
DM->tb->Next();
 } Edit7->Text=IntToStr(sum);

[Stilet]

sum=sum+StrToInt(DM->tbKol->AsString);

Может упростить?: sum=sum+DM->tbKol->AsFloat;
И еще: перед циклом нужно стать в начало набора:DM->tb->First;

[lady.ulumba]

Спасибо. Заработало!