QuickReport, Resultado en letras

[Lenny]

CARAL!!! FUNCIONA A LA PERFECCION!!!

Código Delphi [-]
implementation

{$R *.dfm}

uses BD;

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;

procedure TFCLIENTE.QRExpr3Print(sender: TObject; var Value: string);
var
n:string;
begin
n:= Deletrear(StrToFloat(Value));
QRExpr3.Caption:=uppercase(''+n+'');
value:=QRExpr3.Caption;
end;

end.

Asi tal cual funciona de maravillas, lo unico a tener en cuenta, es que en Chile no trabajamos con decimales, por lo cual hay que cambiar la propiedad "MASK" de los QRExpr a ###,###,##0, pero OJO!!! al que quieras convertir en Letras deve quedar asi ########0 o si no nos genera error, al menos de esta manera me funciona a mi, gracias nuevamente Caral por las sugerencias, un abrazo!!!