нарастающий итог

[SerGo]

Помогите вычислить поле с нарастающим итогом в DBGridе. Например, в такой таблице:
Неделя*****Кол-во_подключившихся_в_неделю*****Итог о
1 ***** 10 ***** 10
2 ***** 12 ***** 22
3 ***** 15 ***** 37

Вычислить надо столбец "Итого". Я понимаю это легко, но до меня никак не допрет

[SuperVisor]

procedure TForm1.FormActivate(Sender: TObject);
var
i: byte;
Buf: integer;
DS:TDataSet;
begin
DS:=DataSource1.DataSet;
buf:=0;
For i:=1 to Table1.RecordCount do
with DS do
begin
RecNo:=i;
Edit;
Ds.Fields[2].Text:=inttostr(strtoint(Ds.Fields[1].Text)+Buf);
Buf:=strtoint(Ds.Fields[2].Text);
DS.Append;
end;
end;

С учетом того, что второй столбец - количество подключений(Fields[1]), плюс ко всему в БД должно быть ТРИ столбца!!! Каждый запуск последний столбец будет пересчитываться, но на скорости это нисколько не отразится.