Si queremos pasar directamente las palabras generadas a mayúsculas utilizando Atexto y pegarlo en un Edit o Memo hacemos:
Código Delphi
[-]
Memo1.Clear;
Letras1.Numero := StrToFloat(FormatFloat('####',StrToFloat(Label1.Caption)));
Memo1.Text := UpperCase(Letras1.AsString)
Lo que hace FormatFloat('####',StrToFloat(Label1.Caption)) es convertir un flotante a entero. Me explico:
El número 2345,56 es equivalente a 2346 en entero, por lo tanto la cifra que va a convertir a palabras no será 2345,56 sino 2346. Saludos
