Что делать с майл сендером прога зависает?

[vitalxxx]

В if(IdSMTP1->Connected()) выводит ошибку во время отправления сообщения и зависает так что Builder 6 перезагружаю

Если кто знает подскажите пожалуйста.

#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)
{
 TIdMessage* M = new TIdMessage(Form1);
M->ContentType = "text/plain";
M->CharSet = "windows-1251";
M->Body->Clear();
M->Body->Add(Memo1->Text);
M->From->Text = Edit1->Text; 
M->Recipients->EMailAddresses = Edit3->Text;
M->Priority = TIdMessagePriority(mpHighest);
M->Subject = Edit5->Text;

IdSMTP1->MailAgent = Edit5->Text;
IdSMTP1->AuthenticationType = atLogin;
IdSMTP1->Host = Edit4->Text;
IdSMTP1->UserId = Edit1->Text;
IdSMTP1->Password =Edit2->Text;

if(!IdSMTP1->Connected()) IdSMTP1->Connect();

if(IdSMTP1->Connected())
{ IdSMTP1->Send(M); }       
}

[Avazart]

Ну так наверное порт указал не тот или другие данные

[Stilet]

выводит ошибку во время отправления

И я правильно понял - текст ошибки засекречен Пентагоном, и хранится под присмотром +100500 ФБР-овцев в форте Нокс?

[Icabod]

А Вы расположили на форме tidantifreeze из вкладки IndyMisc ? Проект, использующий INDI 10 очень долго выгружается из отладчика, лучше вообще его там не запускать.

TIdMessage* M = new TIdMessage(Form1);

Вот это тоже меня смущает
лучше вообще там ничего не писать, или написать Nil В сиплюсном билдере есть nil ? В Делфи точно есть. Я просто не знаю точно, поэтому извините, если что.

[Stilet]

В сиплюсном билдере есть nil ?

Можно 0 или NULL если не ошибаюсь.