Ожидание подключения к БД

    int counter = 0;    //счетчик кол-ва попыток подключения
 
    for(;;)
    {
        if(counter == 10)
        {
            ShowMessage("Превышено кол-во попыток!!!");
 
            Application->Terminate();  //завершаем
            exit(0);
        }
 
        try
        {
            //пытаемся соединиться с БД
            Form2->ADOConnection4->Connected    =   true;
        }
        catch(...)
        {
            ++counter;  //не удалось соединиться, увеличим счетчик
 
            Form2->ADOConnection4->Connected    =   false;
 
            Sleep(5000);    //подождем 5 сек
 
            continue;       //и попробуем еще разок
        }
 
        break;
    }
 
 
    ShowMessage("Соединение установлено!!!");
 
    Application->Terminate();
    exit(0);