TEdtiを数字入力だけ有効にする
::SetWindowLong(Edit1->Handle,GWL_STYLE,::GetWindowLong(Edit1->Handle,GWL_STYLE)|ES_NUMBER);
C++Builder 2009からTEditにNumbersOnlyプロパティが追加されました。
NumbersOnlyをtrueにすることで、数字以外の文字を入力できないようになります。