Timer - проверка подключения к БД ADOConnection

//---------------------------------------------------------------------------
const String LOG_FILE_NAME                  =   "Log_";
 
 
bool Log_File_Write(const String &str_for_write)
{
    try
    {
        TStringList *SL_Log     = new TStringList();
 
        try
        {
            String name_log_file    =   LOG_FILE_NAME   +
                                        Now().FormatString("yyyy_mm_dd")    +
                                        ".log";
 
            if(FileExists(name_log_file))
            {
                SL_Log->LoadFromFile(name_log_file);
            }
 
            SL_Log->Add(DateTimeToStr(Now())                + "\t" + str_for_write);
            Form3->Memo1->Lines->Add(DateTimeToStr(Now())   + "\t" + str_for_write);
 
            SL_Log->SaveToFile(name_log_file);
        }
        __finally
        {
            delete SL_Log;
        }
    }
    catch(...)
    {
        return false;
    }
 
    return true;
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
bool TForm3::Connection_with_Database()
{
    ADOConnection1->Connected   =   false;
 
    ADOConnection1->ConnectionString    =
    "Provider=SQLOLEDB.1;"
    "Password=Intellect_default_DB_4;Persist Security Info=True;User ID=sa;"
    "Initial Catalog=123456;Data Source="
    "SRV\\SQLEXPRESS2014";
 
    try
    {
        ADOConnection1->Connected   =   true;
    }
    catch(...)
    {
        ADOConnection1->Connected   =   false;
        return false;
    }
 
    return true;
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TForm3::Timer1Timer(TObject *Sender)
{
    Log_File_Write("Таймер - начало");
 
    if(!Connection_with_Database())
    {
        Panel1->Color   =   clRed;
    }
    else
    {
        Panel1->Color   =   clGreen;
    }
 
    Log_File_Write("Таймер - конец");
}
//---------------------------------------------------------------------------

ool TForm3::Connection_with_Database()
{
 
    try
    {
if (ADOConnection1->Connected)
    ADOConnection1->Execute("select 1");
else
{
    ADOConnection1->ConnectionString    =
    "Provider=SQLOLEDB.1;"
    "Password=Intellect_default_DB_4;Persist Security Info=True;User ID=sa;"
    "Initial Catalog=123456;Data Source="
    "SRV\\SQLEXPRESS2014";
   ADOConnection1->Connected   =   true;
}
   
 return true;
     
    }
    catch(...)
    {
        ADOConnection1->Connected   =   false;
        return false;
    }
 
   
}