Контроль ввода данных в Eddit

[gs.Soroka]

Здравствуйте, делаю базу данных,по данной теме задавалось много вопросов, но чёткого ответа я не нашёл, мне нужно поставить контроль на ввод данных, допустим если в текстовое поле вводятся цифры,то после нажатия кнопки добавить(для добавления использую форму с Editами) выдало сообщение что то типа проверьте правильность ввода.

void __fastcall TForm7::Edit2KeyPress(TObject *Sender, char &Key)
 {
 char v=Key;
 if !((int(v)<48)||(int(v)>57))
 Edit2->Text += v;
 }

и

Form1->KeyPreview = true;
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
 if ((Key >= '0' && Key <= '9'))
 {
  Key = 0;
  ShowMessage("В это поле, необходимо вводить только буквы");
 }
}

пробовал 2 варианта, не работает

[Valio]

Лучше всего просто проверить строку на валидность в обработчике OnChange.

[gs.Soroka]

я не знаю как, стока перепробовал уже!