Разрешить ввод в Еdit только цифр

void __fastcall TFindInvent_Number::Edit1KeyPress(TObject *Sender,
      char &Key)
{
Set < char, 0, 255 > Dig;
 if ( ! (Dig << '0' <<'1' << '2' << '3' <<'4' << '5'
             << '6' << '7'<< '8' << '9'<<'\b').Contains(Key))
 
 if ( ! Dig.Contains(Key))
    {
      Application->MessageBox("В это поле, необходимо вводить только цифры!!!!!!","Внимание",MB_ICONWARNING);
      Key = 0;
    }
 
 
 
}

boost::regex regs("(^(?:[-]?[1-9]\\d*?)|(?:[0]))(?:\\D(\\d+))?$");
std::string s = текст с edit;
boost::smatch res;
if(!boost::regex_match(s, res, regs))
{
     // Ошибка
}
s.clear();
if(res[2] == "")
{
     s = res[1];
} else
  {
       s = res[1] + "." + res[2];
  }
s - готовое число

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
    AnsiString Ts = "0123456789\b";
    char Tr[] = { '\0','0','1','2','3','4','5','6','7','8','9','\b' };
    Key = Tr[Ts.Pos(Key)];
}

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
    try {
        StrToInt(Key);
    }
    catch (...) {
        Application->MessageBox(L"Ай-ай-ай, это не циферко!", L"Внимание",MB_ICONWARNING);
        Key=0;
    }
}

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key) {
    try {
        StrToInt(Key);
        Application->MessageBox(L"Ай-ай-ай, это не букофка!", L"Внимание",
            MB_ICONWARNING);
        Key = 0;
    }
    catch (...) {
 
    }
}

void __fastcall TUnitSheet::BillNumKeyPress(TObject *Sender, System::WideChar &Key)
{
// блокировка любых символов и последовательностей
// в данном случае, всё что не цифра или не BACK SPACE - стрелка на клаве <--, отсекается.
      if((Key<'0'||Key>'9') && Key!=VK_BACK)
        BillNum->ReadOnly=true;
}
 
void __fastcall TUnitSheet::BillNumKeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
        BillNum->ReadOnly=false;
}

               this->Label1->Caption = "";
                this->Label2->Caption = "";
                this->Label3->Caption = "";
                for (int i=1;i<=this->Edit1->Text.Length();i++)
                {
                                if (isdigit(this->Edit1->Text[i]))
                                                this->Label1->Caption = this->Label1->Caption + this->Edit1->Text[i];
                                else if (isalpha(this->Edit1->Text[i]))
                                                this->Label2->Caption = this->Label2->Caption + this->Edit1->Text[i];
                                else    this->Label3->Caption = this->Label3->Caption + this->Edit1->Text[i];
                }

if (Edit5->Text<0||Edit5->Text>9) ShowMessage ("ввели буквы");
    else   ShowMessage ("ввели цыфры");

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Edit1->NumbersOnly= true;
}
//---------------------------------------------------------------------------

Edit->Clear();