كيف أكتب الأرقام بالحروف

[لؤي]

ممكن فكرة أبسط

و عليكم السلام
هناك دالة تقوم بتحويل الأرقام إلى كلمات ConvertToWords يبقى دعمها للكلمات العربية محل بحث
ألقي نظرة(مجربة على XE2):

PHP كود :

uses NumberToWords;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  words:string;
begin
  words := ConvertToWords(StrToFloat(Edit1.Text), (UseCurrencyCheck.State = cbChecked));
  ResultLabel.Caption := words;

  ShowMessage(words);
end;