QuickReport, Resultado en letras

[[Caral]]

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