somando um campo de uma dbgrid

Atendendo a uma pergunta anterior, funciona + ou - assim:

procedure somando;
var soma: real;
begin
tabela.first;
soma:=0;
repeat
soma:=soma+tabela.fieldbyname(´Saldo´).asfloat;
until tablea.eof;
end;