Function untuk mendapatkan nilai terbilang
function TForm1.terbilang(x: Int64): string; const abil : array[0..11] of string[10]=('','satu','dua','tiga', 'empat','lima','enam','tujuh','delapan','sembilan', 'sepuluh','sebelas'); begin if (x else if (x else if (x else if (x else if (x else if (x else if (x else if (x end; keterangan..: untuk variabel diatas menggunakan int64 agar jumlah angka yang di konversi bisa mencapai milyar,, jika menggunakan integer biasa maka hanya bisa digunakan sampai level juta