La verdad es que eso de sumar lo podías hacer con un query:
Código Delphi
[-]
query1.sql.text := 'select SUM(total) from tabla where idfactura = ' + inttostr(numeroFactura
query1.Open;
suma_total := query1.fields[0].AsCurrency;
En lugar de floattostr, usa FormatFloat(',#0.00', suma_total)
Saludos