Calcular en memoria con IBCQuery

[alebritez]

Que tal Amigos, necesito de vuestra ayuda para el siguiente caso:

* Base de Datos: "Firebird" * Componente de Conexion: IBDAC * Componente SQL: TIBCQuery

Tabla: COBERTURAS
cod_seccion cod_riesgo monto (money)

Tabla: TASA_REFERENCIA
cod_seccion cod_riesgo tasa (float)

El usuario ingresa los montos por coberturas y luego en memoria se calcula el costo: (monto * tasa) de cada cobertura, se va acumulando y luego lo vuelco en un edit.

Ejemplo en un dbgrid:
cod_seccion cod_riesgo monto tasa
75 1 1000000 1.5
25 3 500000 2
36 2 0 4.5

Cabe resaltar que los montos nunca se guardan en la base de datos ya que se ingresa y se calcula el costo en memoria, es ese el objetivo. Las tasas ya estan predeterminadas por seccion y riesgo en la BD.

He corroborado mi sentencia SQL y me trae los datos.

El código que tengo me compila, pero no me calcula nada, es el siguiente:

Código Delphi [-]
var
v_costo : float;

begin
v_costo := 0;

  while qryCoberturas.Eof do
     begin
         v_costo := v_costo + (qryCoberturasMONTO.AsFloat * qryCoberturasTASA.Value);
     end;

    txtCosto.Text := FloatToStr(v_costo);

end;

Cualquier aporte es de ayuda.
Gracias de antemano.
alebritez...