procedure TForm5.AdoTable1AfterPost(DataSet: TDataSet);
var sum:integer;
begin
AdoTable1.First;
sum:=0;
while not AdoTable1.EOF do
begin
AdoTable1:=sum+AdoTable1.FieldByName('txt').AsInteger;
AdoTable1.Next;
label1.Caption:=inttostr(sum);
end;
end;
Может быть можно использовать вычисляемое поле DBGrid?