限制edit只能輸入數字

//TEdit.OnKeyPress event 

if not (key in ['0'..'9',#8]) then  

   key := #0;