Отправка email

form1.SMTP.Host:='94.100.177.1';
form1.SMTP.Port:=25;
form1.Smtp.AuthenticationType:=atLogin;
form1.Smtp.Username:='email';
form1.Smtp.Password:='password';
form1.MailMessage.From.Name:='Agent';
form1.MailMessage.Subject:='theme';
form1.MailMessage.From.Address:='email';
form1.MailMessage.Recipients.EMailAddresses:='to email';
form1.MailMessage.Body.Text:='text';
try
try
form1.SMTP.Connect(1000);
form1.SMTP.Send(form1.MailMessage);
except
end;
finally
if form1.SMTP.Connected
then form1.SMTP.Disconnect;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdSMTP1.AuthenticationType := atLogin;
  IdSMTP1.Username := '***@yandex.ru'; //логин на сервере
  IdSMTP1.Password := '******'; // пароль
  IdSMTP1.Host := 'smtp.yandex.ru'; // URL smtp
 
  IdMessage1.Body.Text := Memo1.Text; // текст в мемо
  IdMessage1.From.Text := '***@yandex.ru'; //  отправитель
  IdMessage1.Recipients.EMailAddresses := '***@yandex.ru'; // получатель
  IdMessage1.Subject := 'New theme'; // тема
  //TIdAttachment.Create(IdMessage1.MessageParts,'c:\1.txt');
  try
    IdSMTP1.Connect();
    IdSMTP1.Send(IdMessage1);
  except
    //ShowMessage('Не удалось отправить');
  end;
  IdSMTP1.Disconnect();
end;