Edit의 Key press 이벤트에 다음과 같이 적으세요..
참고로... 48은 아스키코드로 0입니다..
즉 48~57 ==> 0-9 입니다..
8은 백스페이스 값입니다.

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
                if((Key>=48&&Key<=57)||(Key==8)) {
                } else {
                        Key=0;
                }
}

독작 님이 쓰신 글 :
: Edit 에서 숫자만 입력 받고 싶은데 어떤 방법이 있는지??
:
: 고수님들 부탁 합니다...
: 좋은 하루 되시구요..