Отправка файла на email

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include "IdAttachmentFile.hpp" // чтобы работал TIdAttachmentFile
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 IdSMTP1->Host = "smtp.yandex.ru";
/*
Yandex.ru -25
Mail.ru - 25
Google.com - 465
*/
 IdSMTP1->Port = 25;
 IdSMTP1->Username = "****@yandex.ru";
 IdSMTP1->Password = "******";
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender) {
 IdMessage1->From->Text = Edit1->Text;
 IdMessage1->Recipients->EMailAddresses = Edit2->Text;
 IdMessage1->Subject = Edit3->Text;
 IdMessage1->Body->Text = Memo1->Text;
 IdSMTP1->Connect();
 if (IdSMTP1->Connected()) {
 try
 {
 TIdAttachmentFile *attachment = new TIdAttachmentFile(IdMessage1->MessageParts, "c:\\test.txt");
  IdSMTP1->Send(IdMessage1);
 }
 
 __finally
 {
 IdSMTP1->Disconnect();
 }
 }
}
 
 
//---------------------------------------------------------------------------