idsmtp1.Host:='smtp.yandex.ru';
idsmtp1.Port:=25;
idsmtp1.Username:=Edit1.text;
idsmtp1.Password:=Edit4.text;
idmessage1.Body.text:=memo1.Text;
idmessage1.from.Text:=Edit5.Text;
idmessage1.Recipients.EMailAddresses:=edit3.Text;
idmessage1.Subject:=Edit2.text;
idsmtp1.Connect();
idsmtp1.Send(idmessage1);
idsmtp1.Disconnect;

TIdMessage* M = new TIdMessage(Form1);
M->ContentType = "text/plain";
M->CharSet = "windows-1251";
M->Body->Clear();
M->Body->Add("текст письма");
M->From->Text = "Мейл отправителя";
M->Recipients->EMailAddresses = "Мейл отправителя";
M->Priority = TIdMessagePriority(mpHighest);
M->Subject = "Тема письма";

//Вложения если надо
TIdAttachment* att = new TIdAttachment(M->MessageParts,"c:\\1.jpg");
M->MessageParts->Add();
M->MessageParts->Items[0] = att;


IdSMTP1->MailAgent = "Test TidSMTP";
IdSMTP1->AuthenticationType = atLogin;
IdSMTP1->Host = "smtp.mail.ru"; // имя почтового сервера
IdSMTP1->UserId = "Свой мейл"; 
IdSMTP1->Password = "24234344"; // Здесь пароль
if(!IdSMTP1->Connected()) IdSMTP1->Connect();

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

}


IdSMTP1->Disconnect();
delete M;