Numeros a letras

[[Caral]]

Hola
Instala el componente como cualquier otro.
pones en el uses:

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ATexto, StdCtrls;

Haces una 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;

Pones un boton y dos edit:
en el evento onclick del boton:

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

Creo que esta claro, si no lo comentas.
Si te sirve dale las gracias a Dec, el fue el que me paso este codigo en su momento.
Saludos

[DasGrun]

siempre me da error sobre el begin. lo tengo asi como esta:

private
{ Private declarations }
public

DBEdit7: TDBEdit;
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
{ Public declarations }

end;

var
FrmCrearCheques: TFrmCrearCheques;

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;

aqui cuando lo llamo esta bien:

procedure TFrmCrearCheques.SpeedButton2Click(Sender: TObject);
var
n: String;
begin
n:= Deletrear(StrToFloat(Edit5.Text) );
Edit7.Text:= (n);
end;

[DasGrun]

la funcion debe de ir dentro de la implementacion.

dentro del texto a convertir solo debe de haber numero por ejemplo 12,999.00 ya que tengo error a colocarle L. 12,999.00 o solamente toma valores enteros.

como puedo hacerlo que me lea los punto flotantes tambien.