아래와 같이 하면 자연스럽게 메일이 보내질 것 같았는데,
음.. 안보내지네요.. 어떻게 하면 메일 송신이 가능할까요?

도와주세요!

void __fastcall TForm2::Button1Click(TObject *Sender)
{

   IdMsg->From->Text  = "한메일주소";
   IdSMTP->Username = "아이디" ;
   IdSMTP->Password = "비밀번호" ;
   IdSMTP->Host = "smtp.hanmail.net" ;
   IdSMTP->Port = 해당smtp포트 ;

   IdMsg->Body->Assign(Memo1->Lines);
   IdMsg->Recipients->EMailAddresses = edtTo->Text;
   IdMsg->Subject = edtSubject->Text;
   IdMsg->CCList->EMailAddresses = edtCc->Text;

   if (!IdSMTP->Connected()) {
		  IdSMTP->Connect();
   }

   try {
	   IdSMTP->Send(IdMsg);
   }
   catch (...) {
		IdSMTP->Disconnect();
		Close();
   }

}


// 해더파일 
__published:	// IDE-managed Components
	TButton *Button1;
	TIdSMTP *IdSMTP;
	TIdMessage *IdMsg;
	TEdit *edtTo;
	TEdit *edtSubject;
	TLabel *Label_To;
	TLabel *Label_Subject;
	TEdit *edtCc;
	TLabel *Label1;
	TButton *Btn_Close;
	TButton *Button3;
	TMemo *Memo1;
	TIdAntiFreeze *IdAntiFreeze1;
	TListBox *ListBox1;
	TOpenDialog *OpenDialog1;
	TCheckBox *chkHtml;
	void __fastcall Btn_CloseClick(TObject *Sender);