Erro de soma 1912923458524,81

Boa tarde! Estou tentando somar o valor total de vários produtos...para isso tenho os valores em um dbgrid e para calcula-los, uso um botão que recebe o meu código e um DBEdit para mostrar o resultado. Mas quando clico no botão para calcular a soma o resultado sempre é: 1912923458524,81 para qualquer valor que eu estiver somando. o código: procedure TCSaida.BitBtn1Click(Sender: TObject). var soma:currency. begin
dm_dados.tbl_saida_produto2.First.
while not dm_dados.tbl_saida_produto2.Eof do
begin
soma:=soma+dm_dados.tbl_saida_produto2SAIPROD_VALORTOTAL.Value.
dm_dados.tbl_saida_produto2.Next.
end.
dm_dados.tbl_saida_pai2SAIPAI_VALORTOTAL.Value:=soma. end. Alguém me ajuda? era só inicializar a soma com 0. soma:=0. Vlw pessoal!