Hola wilcg.
Tu función sería mas eficiente así:
Código Delphi
[-]
function SumarDBGrid: Currency;
var
qy: TQuery;
begin
qy:= TQuery.Create(nil);
try
qy.Close;
qy.DatabaseName := 'TU_DB_NAME'; qy.SQL.Text := 'SELECT SUM(CANTIDAD*COSTO) AS RESULTADO FROM TU_TABLA'; qy.Open;
Result := qy.FieldByName('RESULTADO').AsCurrency;
qy.Close;
finally
qy.Free;
end;
end;
Saludos