EditBox tidak bisa diisi angka

Agar EditBox tidak dapat diisi angka menurut saya begini sintaknya:
pilih EditBox mana yang mo divalidasi, trz pd object inspector pilih event OnKeyPress, klik 2x masukan code ini :

1. if (key in['0','1','2','3','4','5','6','7','8','9'])then key:=#0;  
2. klo hanya diisi angka saja  
3. if not(key in['0','1','2','3','4','5','6','7','8','9',#8])then key:=#0;  
4.  Selamat mencoba !!!  
5. di isi khusus aphabet  
6. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);  
7. begin  
8. if not (key in ['A'..'z',#8]) then key := #0;  
9. end;