Fórum Data por extenso no QuickReport #152025

olá pessoal

Estou com o seguinte problema

estou tentando imprimir varias datas de vencimento por extenso no Quickreport e não estou conseguido.

A situação é a seguinte.
Após o efetuar uma venda a prazo divido o valor da venda em parcelas, (armazeno em uma tabela temporaria)
para emitir as nota promissoria com os respectivos valores e vencimentos. ocorre que quando imprimo as notas, a data e os valores se repetem ou seja apenas o valor da ultima prestação
e a data da ultima prestação aparece no relatorios.

exemplo venda em 03 parcelas:

vencimentos 30/03/2003 , 30/04/2003 e 30/05/2003
valores 10.00 , 20.00 e 30.00


utilizo o seguinte codigo no evento beforeprint

lblVencimento.Caption:= FormatDateTime(´d´´ dias do mês de ´´mmmm ´´ do ano de ´´ yyyy´,dmBaseDados.IBParcelasMensaisDATA_DE_VENCIMENTO.AsDateTime);
lblValor.Caption:=Extenso(dmBaseDados.IBParcelasMensaisVALOR_DA_PARCELA.AsFloat);
lblDataAssinatura.Caption:= FormatDateTime(´d´´ de ´´mmmm ´´ de ´´ yyyy´,date);

no relatorio e apresentado em todas as notas a data de vencimento ´ trinta de maio de 2003´ e o valor ´trinta reais´.