Pro favor explica mejor lo que necesitas la verdad no se entiende lo que necesitas.
Pero por lo poco que puedo entender talves te sirva algo como esto.
Código Delphi
[-]sum:=0;
with Query do
begin
while not eof do
begin
sum:= sum+fields[0].asinteger;
next;
end
end
bueno eso te entendi