[dec]

Hola,

El componente tiene cierta miga, empero, este podría ser un uso básico del mismo:

Código Delphi [-]
uses
  Atexto; // Contiene TLetras

// Convierte un número a "letras" usando TLetras
function Deletrear(numero: extended) : string;
var
  atexto: TLetras; // Declaramos
begin
  // Instanciamos
  atexto := TLetras.Create(nil);
  try
    // Asignamos
    atexto.Numero := numero;
    // Establecemos el resultado
    Result := atexto.AsString;
  finally
    // Liberamos
    atexto.Free;
  end;
end;

// Ejemplo de uso de la función NumeroALetras
begin
  // Mostrará: mil doscientos treinta y cuatro 
  ShowMessage( Deletrear(1234) );
end;