void __fastcall TService::Timer1Timer(TObject *Sender)
{
...
if(ADOConnection1->Connected == false)
 {
        try
            {
              NMSMTP1->Connect();
              NMSMTP1->SendMail(); // не связи
              NMSMTP1->Disconnect();
              Timer1->Enabled = false;
              Sleep( 100000 );
              Timer1->Enabled = true;
            }
             catch(Exception &exception)
            {
             Log(exception.Message);
            }

           try
          {
            ADOConnection1->Connected = true;
            Log("Connect to \\\\"+SQL_SERVER+" - OK!");
          }
            catch(Exception &exception)
          {
            Log("Error connect to \\\\"+SQL_SERVER+" "+ exception.Message);
          }
 }
 else 
 {
       try
            {
              NMSMTP1->Connect();
              NMSMTP1->SendMail(); // все зашибись 
              NMSMTP1->Disconnect();
              Timer1->Enabled = false;
              Sleep( 100000 );
              Timer1->Enabled = true;
            }
             catch(Exception &exception)
            {
             Log(exception.Message);
            }
 }
...
}

void __fastcall TMailService::Timer1Timer(TObject *Sender)
{
 if(DataModule2->ADOConnection1->Connected == false)
 {
 Timer1->Enabled = false;
 try
  {
         MailService->Log("No connect. Try connect...");
         DataModule2->ADOConnection1->Connected = true;

          if(DataModule2->ADOConnection1->Connected == true)
          {
            MailService->Log("Connect to \\\\"+MailService->SQL_SERVER+" - OK!");
          }
  }
   catch(Exception &exception)
  {
     MailService->Log("Error connect to \\\\"+MailService->SQL_SERVER+" "+ exception.Message);
            SendMailError(errormsg);
            Sleep( 100000 );
          }
  }
 Timer1->Enabled = true;

..........
 }