Отправка письма с вложением

AnsiString subj="текст моего письма";
    AnsiString sFile;
    IdSSLIOHandlerSocketOpenSSL1->MaxLineAction = maException;
        IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Method = sslvTLSv1;
        IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Mode = sslmUnassigned;
        IdSSLIOHandlerSocketOpenSSL1->SSLOptions->VerifyDepth = 0;
 
    IdSMTP1->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
    IdSMTP1->Host = "smtp.mail.ru";
    IdSMTP1->Port = 587;
    IdSMTP1->Username = "test@mail.ru";
    IdSMTP1->Password = "123";
    IdSMTP1->UseTLS = utUseExplicitTLS;
    IdSMTP1->ReadTimeout = 15000;
    IdSMTP1->Connect();
    if(IdSMTP1->Connected() == true)
    {
        ShowMessage("We have connect");
        TIdMessage *IdMessage1 = new TIdMessage();
        IdMessage1->Clear();
        IdMessage1->CharSet="Windows-1251";
        IdMessage1->From->Address = "test@mail.ru";
        IdMessage1->Recipients->EMailAddresses = "test2@gmail.com";
        IdMessage1->Subject = "заголовок письма весь в кракозябрах";
        IdMessage1->Body->Text = "Проверка связи это мое новое письмо отправлено с помощью программы";
               
                 //---------блок для прикрепления файла-----------------
 
        TIdAttachment *pAttachment;
        sFile = "D:\\1.jpg";
        pAttachment = new TIdAttachmentFile(IdMessage1->MessageParts,sFile);
        //---------------------------------------------------
        
                IdSMTP1->Send(IdMessage1);
        delete IdMessage1;
        delete IdSSLIOHandlerSocketOpenSSL1;
        IdSMTP1->Disconnect();
    }
    else ShowMessage("Dont have connect");

 UnicodeString __fastcall WinToWin1251Q(UnicodeString Str){
UnicodeString strTo;
strTo.sprintf(L"=?windows-1251?Q?");
AnsiString sss = Str;
for(int i=1; i<=sss.Length(); i++) {
byte a = sss[i];
if (a == ' ') a = '_';
strTo.cat_printf((a<128) ? L"%c" : L"=%.2X", a);
}
strTo.cat_printf(L"?=");
return strTo;
}
 
IdMessage1->ExtraHeaders->Add("Subject:"+WinToWin1251Q("заголовок письма"));