OnKeyDown이벤트에서
if(Key < '0' || Key > '9')
  Key == 0;
이렇게 하면 0~9 사이의 값만 입력받고 그 외의 값이 들어오면 키값을 없애버립니다.

김태우 님이 쓰신 글 :
: 스트링 그리드에서 숫자만 입력받을려고 OnGetEditMask이벤트에서
: 다음과 같이 해서 숫자만 입력받는것은 성공을 했습니다.
:
: void __fastcall TMainForm::EtcGridGetEditMask(TObject *Sender,
:       int ACol, int ARow, AnsiString &Value)
: {
:     Value = "00000000";
: }
:
: 그런데, 다른 영문자 키를 누르면 스트링그리드에 입력은 안되지만
: 스트링그리드의 숫자가 지워져 버리드라구요.
: 이거 막는법좀 알려주세요.