(hanya angka)Isi editbox tidak bisa diisi Angka atau editbox tidak bisa disi Huruf(hanya huruf)

terkadang ketika kita membuat program baik di delphi atau vb sebuah editbox atau textbox harus huruf saja atau angka saja. nah kali ini saya ingin berbagi ilmu cara membuat editbox pada delphi hanya angka atau huruf saja.sbb: 
pilih editbox mana yang ingin dibuat validasi, trz pd object inspector pilih event OnKeyPress, klik 2x dan masukan sintak di bawah ini :
//untuk editbox hanya angka saja
if (key in['0'..'9',#8])then
begin
beep;//buat suara
key:=#0;//supaya tidak bisa diinput selain angka
end;
//untuk editbox hanya huruf saja
if not(key in['0'..'9',#8])then
begin
beep;//buat suara
key:=#0;//
end;
contoh listing untuk huruf saja.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
//listing untuk edit bisa di input hanya huruf saja
if not (key in ['A'..'z',#8]) then
begin
beep;
key := #0;//supaya tidak bisa diinput selain huruf
end;
end;