TEdit의 OnKeyPress 나 OnKeyDown 에서
if(Key < '1' || Key > '9')
  Key == 0;
이렇게 하면 숫자만 입력됩니다.
나머지키들도 조건에 같이 넣으면 됩니다.

BCB 님이 쓰신 글 :
: 한가지 궁금한점이 있어 이렇게 글 을 올립니다.
:
: 키보드 입력시(Edit Box) 숫자,소숫점(.) 그리고 +,-,Delete, BackSpeace 이외에 모든 키 값의 입력
: 을 막고 싶습니다.
: 어떻게 하면 될까요? 궁금합니다.
: 조언 부탁 드립니다. 그리고 매일 질문만 드려 죄송합니다.
:
: 날씨 더운데 수고하세요..
: