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');