isi textbox tidak bisa diisi angka

agar textbox tidak dapat diisi angka menurut saya begini sintaknya:

pilih textbox mana yang mo divalidasi, trz pd object inspector pilih event OnKeyPress, klik 2x masukan sintak ini :

if (key in['0','1','2','3','4','5','6','7','8','9'])then key:=#0;

klo hanya diisi angka saja

if not(key in['0','1','2','3','4','5','6','7','8','9',#8])then key:=#0;

Selamat mencoba !!!

di isi khusus aphabet

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['A'..'z',#8]) then key := #0;

end;