ADOConnection ошибка соединения с сервером БД

[atenon]

Здравствуйте. Возникла такая вот проблема.
Пытаюсь создать форму подключения к серверу БД. На форме один едит в который вводится имя сервера затем это имя заталкивается в свойство ConnectionString компонента ADOConnection1 и активизируется соединение.
Как бы все работает но….. если указать ошибочное имя сервера то выходит не мое «запланированное» сообщение, а сразу вызывается исключение и прога аварийно завершается причиной исключения является строка

DM->ADOConnection1->Connected=true;

(по умолчанию это свойство установлено в фолс).
Есть возможность проверить соединение с базой данных без строчки

DM->ADOConnection1->Connected=true;

????
Или может проще что то сделать с исключением?

//Получение имени компьютера
        unsigned long Size = MAX_COMPUTERNAME_LENGTH + 1;
        char *Buffer = new char[Size];
        GetComputerName(Buffer, &Size);

        // Строка соединения с сервером БД
        DM->ADOConnection1->ConnectionString="Provider=SQLOLEDB.1;
Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=UCHET_KADROV;Data Source="+
        Edit1->Text+";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;
Workstation ID="+Buffer+";Use Encryption for Data=False;Tag with column collation when possible=False";

        //Активизируем соединение
        DM->ADOConnection1->Connected=true;

        // Проверяем соединение
       if (!DM->ADOConnection1->Connected)
       ShowMessage("Ошибка: не удалось соединиться с базой данных");

Спасибо за советы.

[Drugnir]

try {
//ваш код
}
catch(){
ShowMessage("Неправильно выбран сервер подключения"); //обработка любой ошибки в коде
}

Проверку на подключение можно убрать. Кончено, можно еще проверять тип ошибки в catch() для уточнения.

[atenon]

Чета не получилось.
То же самое исключение выходит.
Попробовал еще вот так:

try {
        //Получение имени компьютера
        unsigned long Size = MAX_COMPUTERNAME_LENGTH + 1;
        char *Buffer = new char[Size];
        GetComputerName(Buffer, &Size);

        // Строка соединения с сервером БД
        DM->ADOConnection1->ConnectionString="Provider=SQLOLEDB.1;Integrated Security=SSPI;
Persist Security Info=False;Initial Catalog=UCHET_KADROV;Data Source="+
        Edit1->Text+";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;
Workstation ID="+Buffer+";Use Encryption for Data=False;Tag with column collation when possible=False";

        //Активизируем соединение
        DM->ADOConnection1->Connected=true;
        }
        catch(EDatabaseError &Err)
        {
                ShowMessage("Неправильно выбран сервер подключения");
        }

Тоже проблему не решило ((((

[Drugnir]

Если вы запустили через отдачик, то ошибка будет появляться. Если кнопку запуска приложения нажать, то не будет.

[atenon]

Спасибо за идею.
Проблему решило Tools->Debugger Options...->Lenguage Exceptions
убрать галочку Stop on Delphi Excptions
и код

#include <comobj.hpp>
 #include <utilcls.h>
try {
        //Получение имени компьютера
        unsigned long Size = MAX_COMPUTERNAME_LENGTH + 1;
        char *Buffer = new char[Size];
        GetComputerName(Buffer, &Size);

        // Строка соединения с сервером БД
        DM->ADOConnection1->ConnectionString="Provider=SQLOLEDB.1;Integrated Security=SSPI;
        Persist Security Info=False;Initial Catalog=UCHET_KADROV;Data Source="+
        Edit1->Text+";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;
        Workstation ID="+Buffer+";Use Encryption for Data=False;Tag with column collation when possible=False";

        //Активизируем соединение
        DM->ADOConnection1->Connected=true;
        }
        catch(EOleException& e)
        {
                ShowMessage("Неправильно выбран сервер подключения");
        }