проверка на символы...

if (Edit6->Text !=("q")||("w")||("8")||("9")||("0") )
{ShowMessage ("Некорректные символы.");
Edit6->Text="";
Edit6->SetFocus();}
else

for(f=0; f<StrToInt(Edit6->Text.Length()); f++)
if (e2[f]>=65&&e2[f]<=90||e2[f]>=97&&e2[f]<=122||e2[f]==StrToInt('_'))
{ Edit6->Text="";
Edit6->SetFocus(); }
else {("Некорректные символы."); }

e2=Edit6->Text; 
for(f=0; f<StrToInt(Edit6->Text.Length()); f++)
if (e2[f] !=("q")||("w")||("8")||("9")||("0") )
{ShowMessage ("Некорректные символы.");
Edit6->Text="";
Edit6->SetFocus();}
else

Edit6->Text !=("q")||("w")||("8")||("9")||("0")

Edit6->Text !=("q")||Edit6->Text !=("w")||Edit6->Text !=("8")||Edit6->Text !=("9")||Edit6->Text !=("0")

Edit6->Text[i] >= 'a' && Edit6->Text[i] <= 'z'

bool isValid(const std::string& input, //Строка, которую нужно проверить
             const std::string& filter //Строка, содержащая допустимые символы
            )
{
    return (input.find_first_not_of(filter) == std::string::npos) ? true : false;
}

           for(int f=1; f <= StrToInt(e1.Length()); f++){
       if( (e1[f]<'0')||(e1[f]>'9')&&(e1[f]!='_') )
       {Edit1->SetFocus();
       ShowMessage ("Некорректные символы в номере столбца.Вводите только цифры,вместо пробела вводится нижняя черта.");
       break; }

void fastcall TForml::Edit1KeyPress(TObject *Sender, char &Key)
{
// код запрещенного символа заменим нулем, в результате
// символ в поле редактирования не появится
// Key - код нажатой клавиши
// проверим, является ли символ допустимым
if ((Key >= '0') && (Key <= '9')) //цифра
return;
// глобальная переменная DecimalSeparator
// содержит символ, используемый в качестве разделителя
// при записи дробных чисел
if (Key == DecimalSeparator)
{
if ((Editl->Text).Pos(DecimalSeparator) != 0)
Key = 0; // разделитель уже введен
return;
}
 
if (Key == VK_BACK) // клавиша <Backspace>
return;
 
if (Key == VK_RETURN) // клавиша <Enter>
{
Edit2->SetFocus();
return;
}
 
// остальные клавший запрещены
Key = 0 ; // не отображать символ
}