Проверка Edit

int i;
 try
{
StrToInt(Edi1->Caption);
}
catch (...)
{
ShowMessage("Ошибка!");
}

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if((Key!=VK_BACK)&&(Key<'0'||Key>'9')&&(Key!='.'))Key=0; // Воспринимаем только цифры
}

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
TEdit*e=(TEdit*)Sender;
int CaretPos=e->SelStart;
int l=e->Text.Length();
String res;
for(int i=1;i<=l;i++)
        {
        if(e->Text[i]>='0'&&e->Text[i]<='9')res+=e->Text[i];
        }
e->Text=res;
e->SelStart=CaretPos;
}

try
{ 
    StrToInt(Edit1->Text);
}
catch(...)
{ 
    ShowMessage("Its not an integer");
}

void __fastcall TForm1::Edit10KeyPress(TObject *Sender, char &Key)
{
        if ( (isdigit(Key))||(Key==VK_BACK) ) {}
        else Key = 0;
}

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