hola, ¿como sumas? ¿haciendo 'select sum(...) as suma ' o bien recorriendo cada registro?
si no es el caso que usas sum :
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));
a ver si te va mas rapido.
Tambien puedes usar query.DisableControls, query.enablecontrols, para optimizar un poco mas, antes de los calculos