IdSMTP1 отправка почты

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdSMTP1.Host:='smtp.mail.ru'; // адресс почтового сервера
  IdSMTP1.Port:=25;    // порт по которому будет осуществляться подключение
  IdSMTP1.Username:='xxx';  // свой логин на xxx@mail.ru
  IdSMTP1.Password:='xxxxxxxx';     // свой пароль на xxx@mail.ru
  IdSMTP1.AuthenticationType:=atLogin;
  with IdMessage1 do
      begin
      Body.Assign(Memo1.Lines);  // Отправляем текст из TMemo
      From.Name:='Вася Пупкин'; // Своё имя
      From.Address:= 'xxx@mail.ru'; // От кого письмо
      Recipients.EMailAddresses :='yyy@mail.ru'; // адрес кому отправляем
      Subject := 'Это тема'; // тема письма
      end;
   IdSMTP1.Connect;
   try
   IdSMTP1.Send(IdMessage1);
   finally
      IdSMTP1.Disconnect;
      showmessage('Сообщение отправлено.');
   end;
end;