Почтовый клиент

try{
IdPOP3->Host="pop.mail.ru";
ProgressBar->Position=10;
IdPOP3->Port=110;
ProgressBar->Position=20;
IdPOP3->Username="1234@mail.ru"; // Логин пользователя
IdPOP3->Password="5564"; // пароль пользователя
ProgressBar->Position=30;
IdMessage->Clear();// очистка буфера для сообщения
IdPOP3->Connect(); // подключение по протоколу POP3
ProgressBar->Position=40;
Memo1->Clear(); // очистка компонента memo для отображения текста письма.
ProgressBar->Position=50;
IdPOP3->Retrieve(1,IdMessage); // получение одного сообщения
Memo1->Lines->AddStrings(IdMessage->Body); // передача сообщения из компонента IdMessage в memo
ProgressBar->Position=60;
IdPOP3->Delete(1); // удаление с сервера, полученного сообщения
IdPOP3->Disconnect();
ProgressBar->Position=100;}
catch ( ... )
{ShowMessage("нет подключения к интернету"); }
}

    IdSMTP1->Host = "smtp.mail.ru";
    IdSMTP1->Port = 25;
    IdSMTP1->Username = "54@mail.ru";
    IdSMTP1->Password = "55564";
    IdMessage->Clear();// очистка буфера для сообщения
    IdSMTP1->Connect();
 
    if (IdSMTP1->Authenticate())
    {
 
        IdMessage->Subject = "Привет всем";
        IdMessage->Body->Add("Текст письма");
        IdMessage->From->Text = "54@mail.ru";
        IdMessage->Recipients->EMailAddresses = "568767@mail.ru";
//      IdMessage->Priority = TIdMessagePriority(mpHighest);
 
        IdSMTP1->Send(IdMessage);
        IdSMTP1->Disconnect();
    }

IdSMTP1->HeloName= "MyHeloName";