э-малй отправка самому себе

[romanzi]

Мне нужна помощь. Сделал программу, которая отправляет письмо только с определённого э-майла на определённый э-майл (только с моего на мой - нужно для учёбы).. выбивает ошибку соединения.

В чём моя ошибка?

procedure TForm1.Button1Click(Sender: TObject);
begin
  SMTP.Host:='yandex.ru'; // адрес почтового сервера
   SMTP.Port:=25; // порт по которому будет осуществляться подключение
   SMTP.Username:='romanzi777'; // логин пользователя
   SMTP.Password:='пароль'; // пароль пользователя
   SMTP.AuthenticationType:=atLogin; // тип подключения к серверу - с авторизацией
   with IdMessage do
      begin
        Body.Assign(Memo1.Lines); // передача данных из memo в компонент IdMessage, для последующей отправки
            From.Text := 'romanzi777@yandex.ru'; // майл отправителя письма
        Recipients.EMailAddresses := PChar('romanzi777@yandex.ru');
        Subject := Edit1.Text; // тема письма
 
        end;
 
      SMTP.Connect; // соединение с почтовым сервером
         try
      showmessage('Произошло подключение к серверу'); // сообщение о удачном подключении к серверу
      SMTP.Send(IdMessage); // отправка письма на сервер
         finally
           SMTP.Disconnect; // разрыв соединения
         end; end;
 
end.

[Пепел Феникса]

хост это smtp.yandex.ru
а вы на сайт лезете

[romanzi]

"Сервер закрыт грациозного" - "Connection Closed Gracefully"
(с smyp.yandex.ru)