sigo pensando que haciendo esto:
Código Delphi
[-]
q.active := false;
q.SQL.Text := 'select sum(importe) as suma_importes from tabla';
q.active := true;
showmessage(FormatFloat('0.00',q.FieldByName('suma_importes').Asfloat));
arreglado. A mi me suma mas o menos 15.000 registros en menos de 1 segundo