Hola
Viendo este codigo que me parece muy interesante pregunto:
No sera lo mismo independizando la funcion?.
Código Delphi
[-]
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;
Saludos