Fórum soma de uma subconsulta #301069

Oi Uso Delphi 6 e Firebird 1,5 com componentes da paleta Interbase

Existe alguma forma de pegar um soma de uma subconsulta.

Utilizo a seguinte consulta, para buscar as vendas que não estejam indicadas na tabela indicanota e mostrar uma unica venda por cliente, para simplesmente mostrar os clientes que estão devendo.

Select Distinct CadCli_Forn.CodCli_Forn,
CadCli_Forn.NomeFantasia, CadCli_Forn.Ativo,
CadCli_Forn.Tipo, CadCli_Forn.RazaoSocial,
CadCli_Forn.CodCidade, CadCli_Forn.CodGrupo,
CadCli_Forn.CodSubGrupo
from CadCli_Forn, MovProdutos, CadTipoDocumentos,
UsoGruFinan where ((CadCli_Forn.CodGrupo = UsoGruFinan.CodGrupo
and CadCli_Forn.CodSubGrupo = UsoGruFinan.CodSubGrupo
and UsoGruFinan.CodTipoMovFinanceiro = ´´´+IntToStr(TipoFinan)+´´´
and UsoGruFinan.Uso = ´´´+´S´+´´´)
or (CadCli_Forn.CodGrupo = UsoGruFinan.CodGrupo
and UsoGruFinan.CodSubGrupo = ´´´+´0´+´´´
and UsoGruFinan.CodTipoMovFinanceiro = ´´´+IntToStr(TipoFinan)+´´´
and UsoGruFinan.Uso = ´´´+´S´+´´´))
and (CadCli_Forn.CodCli_Forn = MovProdutos.CodCliente
or CadCli_Forn.CodCli_Forn = MovProdutos.CodImposto
or CadCli_Forn.CodCli_Forn = MovProdutos.CodDespesa) ´)
and MovProdutos.ValorTotal > MovProdutos.ValorPago
and (MovProdutos.CodTipoDocumento < ´´´+´1000´+´´´
and CadTipoDocumentos.AtualFinanceiro = ´´´+´N´+´´´
and CadTipoDocumentos.AtualContabilidade = ´´´+´S´+´´´
and not(MovProdutos.CodMovProdutos in
(Select IndicaNota.CodMovNota from IndicaNota,
MovProdutos where IndicaNota.CodMovPaga = MovProdutos.CodMovProdutos
and IndicaNota.CodFilial = MovProdutos.CodFilial
and MovProdutos.ValorTotal > MovProdutos.ValorPago)))

A Sql funciona do jeito que eu queria, só que eu preciso fazer uma totalização desses valores, ou seja, mostrar o total que cada cliente está devendo,

Existe como fazer com que a subconsulta me traga uma soma disso e eu consiga mostrar no grid esse valor, atualmente eu tenho que refazer a consulta dentro do calc fields e isso deixa a consulta muito lenta.

Agradeço antecipadamente qualquer ajuda.