Edit1에 숫자만 입력 받게 하려면..

OnKeyPress 이벤트 함수에..
void __fastcall TfmConfig::Edit1KeyPress(TObject *Sender, char &Key)
{
    // 아래의 아스키 코드가 아니면 입력이 안되게 합니다.
    // key = 0; => 키 값을 0 으로 만들면 입력이 없는 것입니다.
    // 아스키 코드는 숫자(0x30 ~ 0x39), 기타 수정키(삭제, 백스페이스, 엔터)
    if(Key != 0x08 && Key != 0x0d && Key != 0x10 && Key != 0x1b && (Key <0x30 || 0x39<Key))
        Key = 0;
}