Componente Atexto

[[Caral]]

Hola
1-Pones el componente en el form
2-Pones esta 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;

3-llamas a esa función, por ejemplo:

Código Delphi [-]
procedure TForm1.Edit2DblClick(Sender: TObject);
var
 n: String;
begin
  n:= Deletrear(StrToFloat(Edit2.Text) );
  Edit6.Text:= (n);
end;

Esta función y ejemplo son gracias a Dec.
Saludos