var a:tbookmark;
summ:integer;
begin
a:=DBGrid1.DataSource.DataSet.GetBookmark;
DBGrid1.DataSource.DataSet.DisableControls;
DBGrid1.DataSource.DataSet.First;
summ:=0;
while not DBGrid1.DataSource.DataSet.Eof do
begin
summ:=summ+DBGrid1.DataSource.DataSet.fielbyname('').asinteger;
DBGrid1.DataSource.DataSet.Next;
end;
DBGrid1.DataSource.DataSet.GotoBookmark(a);
DBGrid1.DataSource.DataSet.FreeBookmark(a);
DBGrid1.DataSource.DataSet.EnableControls;
end;