EditBox Hanya diisi angka

Disini saya akan sedikit berbagi tentang validasi di EditBox Delphi,yang akan dibahas kali ini adalah validasi editbox dimana editbox tsb hanya bisa di isi dengan huruf,alias ga bisa diisi angka…

Pilih textbox mana yang mau divalidasi, trz pd object inspector pilih event
OnKeyPress, klik 2x masukan listing ini :

1. if (key in['0','1','2','3','4','5','6','7','8','9'])then key:=#0; 
2. atau 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. 
   
5. Selamat mencoba !!!
6. 
   
7. di isi khusus aphabet 
8. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
9. begin 
10. if not (key in ['A'..'z',#8]) then key := #0; 
11. end;