Input Only Number In DELPHI

If Not (Key In ['0'..'9', #1, #8, #9, #13, #35..#40]) Then Key := #0;

KeyPress Event에 코딩을 해주면 된다...

입력된 Key값이 숫자가 아니면 아무 것도 입력이 안된 것으로 만들어 되돌려 보낸다...