Вычисляемое поле БД

[DenProx]

Доброго времени суток. У меня такая задача: Имеется БД (любая, где есть числовое поле), необходимо добавить в эту таблицу дополнительное вычислительное поле, в котором необходимо вычислить: 1. Сумму всех значений данного столбца содержащено числовые значения; 2. Найти среднее значение этой суммы;

Для БД необходимо использовать компонеты - Table, DataSource, DBGrid

Вот код, который пробывал изначально:
s:=0;
Table1.First;
While not Table1.Eof do
begin
s:=s+Table1Size.asInteger;
Table1.next;
end;

// но он не просто не работает, а вообще портачит Delphi, в результате чего можно закрыть ее, только через Диспечер задач, путем завершения процесса.

Заранее спасибо!

[Игорь Акопян]

autocalcfields приводит к бесконечному циклу.
А по существу - поле в каждой строке таблицы содержащее не относящуююся к этой строке инфу - нарушение нормальности, чуть ли не первой формы.