Números a letras

[metroyd]

Gracias a los que me ayudaron.
El problema lo resolvi mediante el evento OnPrint del QRExpression:

Código Delphi [-]
procedure TForm17.QRExpr2Print(sender: TObject; var Value: String);

// AQUI METI LA FUNCION QUE ME DIJISTE
   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;
 // FIN DE LA FUNCION

 var
    n:string;
begin
   form17.qrlabel37.Caption:=FOrmatfloat('#,##0.00',strtofloat(value));
   n:= Deletrear(StrToFloat(Value));
   form17.QRLabel39.Caption:=uppercase('( '+n+' PESOS 00/100 M.N.)');
   value:=form17.QRLabel37.Caption;

end;