Conexion sql Primero bien despues Lenta

[[coso]]

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