1. 왠만하면~ MaskEdit를 사용한다.
   그냥 mask filter하는 부분에 999999 라고만 적으면~
알아서 숫자만 받아준다.

2. 상용 콤포넌트를 사용한다.
  왠만한 상용콤포넌트엔~ 숫자만 이쁘게 받게 해주는 컴포넌트를 제공해준다.

3. 공부삼아 하나 만들어 본다.  언듯 생각나는 건~
  Keypress event에 &Key parameter에서 숫자가 아닌거~  찾아서~
   if(!isdigit(key)){
  }
  주소값으로 넘어오니까~ Key값에 적당한 값 넣어주고
  Key = "a"
  쓰레드 하나 만들어서~ 적당한 시점에  열씸히~  "a"만 지워준다.~
  요걸~ 하나로 묶어서~  TNumEdit같은 걸로 만들어서 등록해 쓴다.
  완전 노다가 식이군... ㅋㅋㅋ...  

4. 음.. 그냥 이런식도 있고...
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{ 
  if( ( Key >= 48 && Key <= 57) || ( Key == 8))  {
  }
  else {
     Key=0;
  }
}
//---------------------------------------------------------------------------

개인적으로 (2번)을 추천합니다.