Error al insertar datos a una consulta

[The Cid James]

Buenas gente estoy tratando de agregar los datos a una consulta y al ejecutarla me dice que la consulta esta vacía este es el código que estoy usando

Código Delphi [-]
fmodulo.Qtotal.Close;
       fmodulo.Qtotal.SQL.Clear;
       fmodulo.Qtotal.SQL.Text := 'Select SUM(Precio_v) As Total FROM detalles_venta Where detalles_venta.estado = 1 and detalles_venta.id_detalle = :idv';
       fmodulo.Qtotal.ParamByName('idv').AsInteger := numventap;
       fmodulo.Qtotal.ExecSQL;
       fmodulo.Qtotal.Refresh;