Prosedur Angka Terbilang | "Kode Sederhana 1-999 ( Borland Delphi )"

Berikut ini adalah script sederhana dalam membuat aplikasi angka terbilang, jangan lupa tinggalin komentarnya ;

var
  Form1: TForm1;
  angka: array[1..9] of string=('Satu','Dua','Tiga','Empat','Lima','Enam','Tujuh',
        'Delapan','Sembilan');

procedure TForm1.Button1Click(Sender: TObject);
begin
if length(edit1.Text)= 3 then
if edit1.text='110' then Terbilang.Text:='Seratus Sepuluh' else
if copy(edit1.Text,2,3)= '11' then
   Terbilang.Text:=angka[strtoint(copy(edit1.text,1,1))] +' Ratus'+' Sebelas'
else
if copy(edit1.Text,2,3)= '10' then
   Terbilang.Text:=angka[strtoint(copy(edit1.text,1,1))] +' Ratus'+' Sepuluh'
else
if copy(edit1.Text,1,2)= '10' then
   Terbilang.Text:='Seratus ' + angka[strtoint(copy(edit1.text,3,1))]
else
if copy(edit1.Text,1,1)= '1' then
   Terbilang.Text:='Seratus ' + angka[strtoint(copy(edit1.text,3,1))]+' Belas'
else
if copy(edit1.Text,1,1)= '1' then
   Terbilang.Text:='Seratus ' + angka[strtoint(copy(edit1.text,2,1))]+' Puluh' +
                                 angka[strtoint(copy(edit1.text,3,1))]
else
if copy(edit1.Text,2,1)= '0' then
   Terbilang.Text:=angka[strtoint(copy(edit1.text,1,1))] +' Ratus ' +
                   angka[strtoint(copy(edit1.text,3,1))]
else
   Terbilang.text:=angka[strtoint(copy(edit1.text,1,1))]+' Ratus '+
                   angka[strtoint(copy(edit1.text,2,1))]+' Puluh '+
                   angka[strtoint(copy(edit1.text,3,1))]


else
if length(edit1.Text)= 2 then
if edit1.text='10' then Terbilang.Text:='Sepuluh' else
if edit1.text='11' then Terbilang.Text:='Sebelas' else
if copy(edit1.Text,1,1) = '1' then
   Terbilang.text:=angka[strtoint(copy(edit1.text,2,1))]+' Belas 'else
      Terbilang.text:=angka[strtoint(copy(edit1.text,1,1))]+' Puluh '+
                      angka[strtoint(copy(edit1.text,2,1))]
else
Terbilang.text:=angka[strtoint(edit1.text)];
end;

end.


Catatan ;
Jangan lupa bantu pengembangannya . . .
Saling berbagi ilmu itu ndak rugi sobat ^-^