Puedes hacer una sentencia SQL de suma
Código SQL
[-]
select sum(campo) as suma
from tabla
where condiciones
y desde Delphi luego recuperar el valor
Código Delphi
[-]
var
i: integer;
begin
.....
Query.Open;
i := Query.FieldByName('Suma').AsInteger;
Espero que te sirva