Не работает отправка на почту

[SERG1980]

я так отправлял

procedure TForm1.Button1Click(Sender: TObject);
Var
M: TIdMessage;
Begin
Try
 M:=TIdMessage.Create(Form1);
 M.Body.Assign(memo1.Lines);
 M.From.Text:=edit4.Text; //Отправитель
 M.Recipients.EMailAddresses:=edit5.Text; //Получатель
 M.Subject:=edit6.Text; //Тема письма
 IdSMTP1.AuthenticationType:=AtLogin;
 IdSMTP1.Host:=edit3.Text; //Хост
 IdSMTP1.Username:=edit1.Text; //Логин вашей почты
 IdSMTP1.Password:=edit2.Text; //Пароль
 IdSMTP1.Connect();
If IdSMTP1.Connected Then
Begin
 IdSMTP1.Send(M);
End;
IdSMTP1.Disconnect;
Except
End;

и попробуйте этот хост: smtp.yandex.ru

[Painkiller_13]

Я попросил нескольких друзей потестить прогу у них все работает письма отправляються)
тоесть ошибок в коде нету
тогда вопрос в другом что с моим интернетом не так)

[eoln]

Порты проверяли? Фаерволы не блокируют?
С бОльшей долей вероятности можно сказать, что провайдер закрыл порт 25. Некоторые провайдеры борются так с рассылкой спама. Обязательно позвоните в службу поддержки вашего провайдера и спросите. Говорят, иногда порт закрывают не всем, а тем кого заподозрили (не знаю каким образом) в спамерстве.

Кстати, 2525 тоже не работает?