Fórum Valor Por Extenso - A Missão #188623

Colegas,
Já tenho a função para escrever valor por extenso. Em modo de execução funciona muito bem. O problema ocorre quando tento imprimir os registros de uma tabela no QR. Estes registros estão numa SubDetailBand. Não funciona.

Estou tentando da seguinte forma:

procedure TfRelatorio.QRSubDetail3BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var ValorExtenso: string;
begin
If QRDBText35.Text <> ´´ Then Begin //local onde está o valor em R$
ValorExtenso := Extenso( StrToFloat(QRDBText35.Text) );
QRLabel64.text := ValorExtenso;

end;

Também não dá. O campo onde está o valor é em formatcurr.
Onde será que está o erro ??