Приколисты.
Не знаю даже я что то как это делается.
Проверяется на число строка.
if String == chislo
else ShowMessage("Это не число"

;
У меня такая тема стояла.
Записал.
Но есть косяк могут скопировать вставить текст.
На событие KeyDown
if(!isdigit(Key) && !(Key >= 96 && Key <= 105) && (Key != 8 ) && Key != 13)
{
ShowMessage("Введите число \"Вы ошиблись!\""

;
Edit3->Text = "";
}
else OnBukvi2 = true;