[Casimiro Noteví]

No entiendo bien lo que dices de "en memoria", "en dbgrid", etc, pero básicamente:

Código Delphi [-]
while not (qryCoberturas.Eof) do
begin
  v_costo := v_costo + (qryCoberturasMONTO.AsFloat * qryCoberturasTASA.Value);
  qrtCobertyras.Next;
end;