Проверить, находятся ли в Edit только цифры

 
void __fastcall TForm1::Edit3KeyPress(TObject *Sender, char &Key)
{
if ((Key >= '0') && (Key <= '9')) {} // цифры
else Key = 0; // не цифра
}

if ((Key >= '0') && (Key <= '9')) {} // цифры

if (isdigit(Key)) {} // цифры

//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Edit3KeyPress(TObject *Sender, char &Key)
{
    Edit3->ReadOnly = false;
 
    if (isdigit(Key) || (Key == VK_BACK)) {return;}
    Key = 0;    
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit3MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if(Button == mbRight)Edit3->ReadOnly = true;
}
//---------------------------------------------------------------------------

//...
private:
    void __fastcall NewEditProc(TMessage &message);
//...

//...
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Edit1->WindowProc = NewEditProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NewEditProc(TMessage &message)
{
    if(message.Msg != WM_PASTE)
        Edit1->Dispatch(&message);
}
//...

switch(Key)
{
    case VK_RETURN: try
    {
        //Сюда преобразование
    }
    catch(...) 
    { 
        //Сюда "страховка"
    }
    break;
    case '.':
    case ',': Key = FormatSettings.DecimalSeparator; break;
    case '-': break; //Минус можно
    default: if(!iscntrl(Key) && !isdigit(Key))
        Key = 0;
}

float xn;
if (!TryStrToFloat(Edit1->Text, xn))
   {
  ShowMessage("Неверное значение Xn");
  return;
   }