Bueno, despues de tanto buscar y gracias a la sugerencia de CARAL y el componente ATEXTO encontre la solucion:
Código Delphi
[-]
procedure TFCLIENTE.QRExpr3Print(sender: TObject; var Value: string);
function Deletrear(numero: real) : string; var
letras: TLetras;
begin
letras := TLetras.Create(nil);
try
letras.Numero := numero;
Result := letras.AsString;
finally
letras.Free;
end;
end;
var
n:string;
begin
n:= Deletrear(StrToFloat(Value));
QRExpr3.Caption:=uppercase(''+n+'');
value:=QRExpr3.Caption;
end;
Coloque esto en el evento "OnPrint" y funciona a la perfeccion.
No quiero llevarme el credito de esta solucion, solo hice pequeños cambios a una solucion anterior. Curiosamente lo saque de otro post de un usuario con un problema similar y CARAL lo estuvo ayudando y esta era una de las sugerencias, nuevamente gracias!!!