Рассылка почты и обработка исключений

__fastcall TSpamThread::TSpamThread(bool CreateSuspended, SPAM_MANAGER *manager, MACROS *macros)
    : TThread(CreateSuspended)
{
    this->macros = macros;
    this->manager = manager;
}
//---------------------------------------------------------------------------
void __fastcall TSpamThread::Execute()
{
    TIdSMTP *smtp = new TIdSMTP(NULL);
    TIdMessage *mes = new TIdMessage(NULL);
    TIdSocksInfo *socks = new TIdSocksInfo(NULL);
    TIdSSLIOHandlerSocketOpenSSL *ssl = new TIdSSLIOHandlerSocketOpenSSL(NULL);
    MAILS_FOR_SPAM *mfs = manager->getMFS();
    MAIL_LIST *ml = manager->getML();
    PROXY *prox = manager->getProxy();
    manager->addProxy();
    while(mfs != NULL)
    {
        socks->Version = prox->proxy_type;
        socks->Authentication = saNoAuthentication;
        ssl->TransparentProxy = socks;
        
        socks->Host =  prox->host_p;
        socks->Port = prox->port.ToInt();
        
        smtp->IOHandler = ssl;
        smtp->UseTLS = utUseImplicitTLS;
        smtp->AuthType = satDefault;
        smtp->Host = ml->host_m;
        smtp->Username = ml->mail;
        smtp->Password = ml->pass;
 
        mes->CharSet = "windows-1251";
        mes->Body->Text = "проверка" + macros->getMACROS();
        mes->From->Text = ml->mail;
        mes->Recipients->EMailAddresses = mfs->mails_f_s;
        mes->Subject = "тема" + macros->getSUBG() ;
        try
        {
                smtp->Connect();
                manager->addMFS();
                smtp->Send(mes);
                smtp->Disconnect();
        }
        catch(Exception &e)
        {
                if(e.Message.Pos("Already connected"))
                {
                        smtp->Disconnect();
                }
                if(e.Message.Pos("Socket Error # 10061\r\nConnection refused."))
                {
                    //"Нет такой прокси");
                    prox = manager->getProxy();
                    manager->addProxy();
                    try
                    {
                        smtp->Connect();
                        manager->addMFS();
                        smtp->Send(mes);
                        smtp->Disconnect();
                    }
                    catch(...)
                    {
                    }
                }
                if(e.Message.Pos("Socket Error # 10060\r\nConnection timed out."))
                {
                    manager->addError();
                }
        }
        catch(...)
        {
            manager->addError();
        }
        mfs = manager->getMFS();
        ml = manager->getML();
    }
    delete smtp;
    delete mes;
    delete socks;
    delete ssl;
    delete mfs;
    delete prox;
    delete ml;
}

IdSMTP1->Host = "smtp.yandex.ua";
IdSMTP1->Port = 587;