Fungsi konversi angka ke huruf

function Terbilang(x:integer):string;
const
abil : array[0..11] of string[10]=('','satu','dua','tiga',
'empat','lima','enam','tujuh','delapan','sembilan',
'sepuluh','sebelas');

begin
if (x<12) then
Result:=' '+abil[x]
else
if (x<20) then
Result:=Terbilang(x-10)+' belas'
else
if (x<100) then
Result:=Terbilang(x div 10)+' puluh'+Terbilang(x mod 10)
else
if (x<200) then
Result:=' seratus'+ Terbilang(x-100)
else
if (x<1000) then
Result:=Terbilang(x div 100)+' ratus'+Terbilang(x mod 100)
else
if (x<2000) then
Result:=' seribu'+ Terbilang(x-1000)
else
if (x<1000000) then
Result:=Terbilang(x div 1000)+' ribu'+Terbilang(x mod 1000)
else
if (x<1000000000) then
Result:=Terbilang(x div 1000000)+' juta'+Terbilang(x mod 1000000);
end;


procedure TForm1.Edit1Change(Sender: TObject);
begin
edit2.Text:=(terbilang(strtoint(edit1.Text)));
end;