Отправка Email с прикреплением файла

IdMessage1->Body->Add("");   //Текст сообщения
IdMessage1->From->Text = "*****@mail.ru";//от кого письмо (если сервак не проверяет, можно левый адрес)
IdMessage1->Subject  = "****";//Заголовок письма 
IdMessage1->Recipients->EMailAddresses = "*****@mail.ru";//Адрес получателя
//IdMessage1->Priority = TIdMessagePriority(mpHighest);// приоритет письма... 
//IdMessage1->CCList->EMailAddresses = "****@mail.ru";//Копия письма (если надо)
IdSMTP1->Host = "smtp.mail.ru";//адрес СМТП сервака
IdSMTP1->UserId = "****";//Логин
IdSMTP1->Password = "*****";// пароль
IdSMTP1->Port = 25;// стандартный порт
IdSMTP1->AuthenticationType = atLogin;//с авторизацией
 
try //дальше собственно отправка и обработка кое каких исключений
   {
    try
       {
          if (IdSMTP1->Connected()) IdSMTP1->Disconnect();
              IdSMTP1->Connect();
              ProgressBar1->Position=40;
              IdSMTP1->Send(IdMessage1);
              ProgressBar1->Position=50;
       }
       catch (Exception &exception)
            {
             IdSMTP1->Disconnect();
             MessageDlg("Application, may not connected", mtError, TMsgDlgButtons() << mbYes, 0);
             Abort;
            }
             // My Code Here
    }
     catch (Exception &exception)
          {
           Application->ShowException(&exception);
           IdSMTP1->Disconnect();
          }

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TIdSMTP *smtp = new TIdSMTP(Form1); // SMTP
 
    smtp->UserId = "От кого(мыло)";
    smtp->Password = "********(пароль)";
    smtp->Host = "smtp.mail.ru";
    smtp->Port = 25;
    smtp->AuthenticationType = atLogin;
    smtp->Connect();
 
    TIdMessage *msg = new TIdMessage(Form1); // MSG
 
    TIdAttachment *file = new TIdAttachment(msg->MessageParts, "C:\\exit.bmp"); // ATTACH
 
    if (smtp->Authenticate())
        {
        msg->Subject = "Тема";
        msg->MessageParts->Add();
        msg->MessageParts->Items[0] = file;
        msg->Body->Text = "Текст Сообщения";
        msg->From->Text = "от кого";
        msg->Recipients->EMailAddresses = "Кому";
 
 
            msg->Priority = TIdMessagePriority(mpHigh);
 
 
        try
            {
            smtp->Send(msg);
            }
        catch (Exception &exception)
            {
            //
            }
        smtp->Disconnect();
        }
    delete file; // DELETE ATTACH
    delete msg; // DELETE MSG
    delete smtp; // DELETE SMTP
 
}

{  //1
 
OpenDialog1->Execute();
if (OpenDialog1->FileName != ".exe") { //2
 {  //3
 
 IdAttach = new TIdAttachmentFile(IdMessage1->MessageParts, OpenDialog1->FileName );
 IdAttach->FileName=ExtractFileName(OpenDialog1->FileName);
 } //3
 }//2
 }//1