Input Only Number @ Delphi

Gimana ya cara supaya komponen edit text yang kita pasang di program kita cuma bisa diberi input angka saja???misal edit text itu akan kita isi dengan nilai masukan untuk nilai ujian atau jumlah penduduk yang tidak bisa diisi text, namun harus diisi dengan angka. So, gimana ya caranya??? Perlu kita ketahui bahwa setiap ketukan keyboard akan di kenali oleh komputer dalam kode ASCII, nah kode ASCII tu yang akan kita gunakan untuk filter input dari keyboard. Jadi algoritmanya, saat tombol ditekan, jika yang ditekan bukan merupakan karakter ASCII dari tombol angka, maka tampilkan error message dan isi dari edit text tersebut dihilangkan. Script ini ditaruh di event OnKeyDown, kLo ditulis lengkap script kaya di bawah ini nich...

begin
if not ((key = 48) or (key = 49)or (key = 50) or (key = 51) or (key = 52) or(key = 53) or (key = 54)or(key = 55) or(key = 56) or (key = 57) or (key = 96) or (key = 97) or (key = 98) or (key = 99) or (key = 100) or (key = 101) or (key = 102) or (key = 103) or (key = 104) or (key = 105) or (key = 08) or (key = 110) or (key = 190) or (key = 188))
then
begin
if Application.MessageBox('Ojok NGAWUR... masukkan angka!!!!','ERROR neh...',MB_OK or MB_ICONINFORMATION) = IDOK
then
begin
//======================
//kosongkan semua edit text
//======================
end
end
end;

di bagian kosongkan edit text bisa dituliskan

namaedittext.text := '';

Sekian dulu tutorial yang sekedarnya ini,,,
tunggu tutorial lain tetep di goblogtech.blogspot.com