Отправка почты через TNMSMTP {Delphi 5}

Здравствуйте. Я немогу отправить письмо через компонент TSMTP с закладки интеренет. Я вот такой пробовал исходник:
procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.Host := 'smtp.mail.ru';
NMSMTP1.Connect;
with NMSMTP1.PostMessage do
begin
FromAddress := '[email protected]';
ToAddress.Add('[email protected]') ;
Subject := 'Test';
Body.Add('This is a test');
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
end;
end;
Всё компилится без проблем, но когда нажимеш кнопу, то по итечению некоторого времени вылетает:
Project Project1.exe. raised exception class ESocketError with message 'Connection Failed'. Proces stopped. Use step or Run to continue.
А потом "Conn ection Failed."
Незнаю почему так??? Может в Host надо писать www.mail.ru Подскажите, или напишите код с помошью которого вы отправляете. Подскажите пожалуйсто!!!
-------------------------------------------------------
Заранее благодарен!

 

Я исрользовал компоненты TIdSMTP и TIdMessage (вкладки Indy Clients и Indy Misc). Код выглядит так:

procedure SendMail;
var
LSMTP: TIdSMTP;
LMsg: TIdMessage;
x: TIdAttachment; //Это аттач письма, можешь удалить, если не надо
//Обьявлям переменные.
begin //Ну начинаем
LSMTP := TIdSMTP.Create(nil); //Создаемся
LMsg := TIdMessage.Create(LSMTP);
with LMsg do
begin
Subject := 'Тема'; // Здесь вводим тему
Recipients.EMailAddresses := '[email protected]' ; // куда будет послано письмо...

From.Text := '[email protected]'; //От кудыкина будет письмо
Body.Add('Текст письма');

x:=TIdAttachment.Create(LMsg.MessageParts,'Путь к файлу аттача'); //не нужен аттач - стирай всю строку




end;
with LSMTP do
begin
AuthenticationType:=atNone;
Host := 'smtp.mail.ru';
Port := 25;
Username :='[email protected]' ; //здесь происходит авторизация(как в почтовом клиенте)
Password :='loxi' ;
try
Connect; //зухель коннект!!
Send(LMsg);
except
end;
end;
FreeAndNil(LMsg);
FreeAndNil(LSMTP);

end;

 

Помойму прога была litlelamer'a там где можно пробывать XSS. Там можно и просто письма отправлять поищи на ачате в поиске.

 

оки пасиб всем)

 

gadjet подскажи что не правильно?
Как нужно настроить эти 2 компонента?
Почта вроде бы пытается отпвиться, но ругается или на ESocketError, или на авторизацию
Наверное нужно как-то ещё компоненты настраивать?

Вот исходник, только впищити в него свои адреса, я вписывал и проверял всё на mail.ru , но без результатно

_www.perspektiva.h16.ru/email.rar
помоги плиз не могу разобраться