Запрет ввода букв

float k;
 if(!TryStrToFloat(Edit1->Text,k)){
  ShowMessage("Ошибка!!! \nСтрока не является числом");
  return;
 }

int k;
 if(!TryStrToInt(Edit1->Text,k)){
  ShowMessage("Ошибка!!! \nСтрока не является числом");
  return;
 }

ShowMessage("Ошибка!!! \nСтрока не является числом");

ShowMessage("Ввод букв запрещен.");

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int i;
  if((!TryStrToInt(Edit1->Text, i)) ||
    (!TryStrToInt(Edit2->Text, i)) ||
      (!TryStrToInt(Edit3->Text, i)) ||
        (!TryStrToInt(Edit4->Text, i)))
          {
            ShowMessage("Неверный ввод!");
            return;
          }
//остальной код
}

//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if ((Key < '0' || Key > '9') && Key != 8) Key= 0;
}
//---------------------------------------------------------------------------

else{}