[BCB] 数値入力専用のTEdit

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender) {
  SetWindowLong(Edit1->Handle, GWL_STYLE, GetWindowLong(Edit1->Handle, GWL_STYLE)|ES_NUMBER);
}

さらに、ES_RIGHTを追加すれば右寄せになります。