Delphi 7 Отправка сообщения на почту (email)

Здравствуйте !

Нужно написать программу для отправки почты. Пока пробую простейший пример, с которым уже возникли проблем. Сижу со вчерашнего дня над одной и той же ошибкой "connection time out". Искал на форумах, говорили, про порт. Я их штук 5 перепробовал, ничего не помогает. Я сижу с Yota, думал проблема в этом, но отправил код другу, он запустил и такая же проблема.
Вот код:
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Host:='smpt.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:=''EvSchl';
IdSMTP1.Password:='*******';

IdMessage1.Body.Text:='lalalalala';
IdMessage1.from.Text:='EvSchl@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='EvSchl@yandex.ru';
IdMessage1.Subject:='EvSchl@yandex.ru';

IdSMTP1.Connect();

if IdSMTP1.Connected=true then
begin
IdSMTP1.Send(IdMessage1);
Application.MessageBox('Good','Ok');
end
else
Application.MessageBox('Error','Error');
IdSMTP1.Disconnect;
end;

В чем проблема ?