Не отправляет письмо

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdMessage1->Subject="Письмо + вложение";
IdMessage1->Body->Text=L"Письмо со вложением Вам пришло";
IdMessage1->From->Text="user@yandex.ru";
IdMessage1->Recipients->EMailAddresses="cpptutor2@yandex.ru";
 
//Содиняемся
IdSMTP1->Connect();
if (IdSMTP1->Connected() == true) {
ShowMessage("sucesful");
} else {
 ShowMessage("error");
}
//Отправляем
IdSMTP1->Send(IdMessage1);
//Закрываем соединение
IdSMTP1->Disconnect();
}

    dm->OpenSSL->SSLOptions->Method = sslvTLSv1;
    dm->SMTP->IOHandler = dm->OpenSSL;
    dm->SMTP->AuthType = satDefault;
    dm->SMTP->UseTLS = utUseImplicitTLS;
    dm->SMTP->Port = 465;
    dm->SMTP->Username = "mail";
    dm->SMTP->Password = "pass";
    dm->SMTP->Host = "smtp.mail.ru";
    dm->SMTP->Connect();
 
    if(dm->SMTP->Connected() == true)
    {
        dm->Message->Clear();
        dm->Message->From->Address = "mail";
        dm->Message->Recipients->EMailAddresses = e_email->Text;
        dm->Message->Subject = L"Информация о товаре.";
 
        //---------блок прикрепления файла---------
        TIdMessageBuilderPlain* message_ptr = new TIdMessageBuilderPlain();
 
        if(FileExists("img/temporary_storage/temp.jpg"))
        {
            message_ptr->Attachments->Add("img/temporary_storage/temp.jpg");
        }
 
        //---------блок формирования текста---------
        TStringList* plain_text = new TStringList();
        plain_text->Add(" \
        ===================== \n\
        " + l_id_invoice->Caption + "\n\
        " + l_name->Caption + "\n\
        " + l_type->Caption + "\n\
        " + l_amount->Caption + "\n\
        " + l_all_amount->Caption + "\n\
        " + l_company->Caption + "\n\
        " + l_warehouse->Caption + "\n\
        " + l_address_warehouse->Caption + "\n\
        " + l_storekeeper->Caption + "\n\
        ===================== \
        ");
        message_ptr->PlainText = plain_text;
        message_ptr->PlainTextCharSet = "UTF-8";
        message_ptr->FillMessage(dm->Message);
 
        dm->SMTP->Send(dm->Message);
        dm->SMTP->Disconnect();
 
        delete plain_text;
        delete message_ptr;
        delete ini;
 
        MessageBoxA(0, "Сообщение отправлено на ваш Email!",
        "Внимание!", MB_OK);
    }