Проблема с вычисляемым полем

[brusel]

Здраствуйте. Есть DBGridEh с полями А, Б, С, Д.
Поля С и Д вычисляемые. С полем С проблем нет.
Поле Д должно считатся так: Д=А / Сумма(А)

procedure TVagaCalcFields(DataSet: TDataSet);
begin
TVagaС.Value:=TVagaА.Value*TVagaБ.Value;
//в следующей строке создаются проблемы
TVagaД.Value:=TVagaА.Value/StrtoFloat(FVaga.DBGridEh1.Columns[1].Footers[0].SumValue);
end;

по ошибке я понял деление на ноль.
Пробовал через отдельный ADOQuery1 сумму считать но тоже не выходит.
Как сделать чтобы сначала считало сумму по первому полю, а потом вычисляемые поля?