Ошибка при отправке сообщений через SMTPClient

[BoT_T]

Вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdMessageClient, IdSMTP, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdSMTP1: TIdSMTP;
    IdMsg: TIdMessage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
attach: TidAttachment;
msg: tidmessage;
i: integer;
begin
idSMTP1.AuthenticationType:= atLogin;
idSMTP1.Username:='uwner'; // ваш логин
idSMTP1.Password:='мой пароль';  // пароль
idSMTP1.Host:='smtp.mail.ru'; // хост mail.ru
IdSMTP1.Port:=2525; // порт mail.ru
msg:=IdMsg.Create(nil);
msg.Body.Add('Body'); // сообщение письма
msg.Subject:='mail'; // заголовок письма (Тема)
msg.From.Address:='uwner@mail.ru'; // от кого отправляем письмо
msg.From.Name:='message'; // имя отправителя
msg.Recipients.EMailAddresses:='govnokys@mail.ru'; // кому отправить письмо
msg.IsEncoded:=true;
attach:=TIdAttachment.Create(msg.MessageParts,'C:\client.exe'); // раскоментируйте эту строчку если хотите отправить письмо с вложением, где attach.exe, файл который должен лежать в той же директории что и сама программа
idSMTP1.Connect();
if idSMTP1.Connected then
begin
idSMTP1.Send(msg);
end
else
IdSMTP1.Disconnect;
end;
end.

Вот скрин ошибки:
http://rubuzz.net/images/?v=clipimage002xwx.jpg

[Voland-791]

Ошибка еще есть в адресации e-mail должен стоят тот который был указан в авторизации у idSMTP1,тоесть так:
msg.From.Address:='uwner@mail.ru' //edit1.text); // от кого отправляем письмо,если другой то не прокатит
msg.From.Name:='message'; // имя отправителя
msg.Recipients.EMailAddresses:='uwner@mail.ru'; // кому отправить письмо

[BoT_T]

Все равно происходит ошибка. Выделена строчка:

if idSMTP1.Connected then

[Voland-791]

Так сделай вместо:

idSMTP1.Connect();
if idSMTP1.Connected then
begin
idSMTP1.Send(msg);
end
else
IdSMTP1.Disconnect;

Так:

idsmtp1.Connect(60000);
idSMTP1.Send(msg);
sleep(7000);
IdSMTP1.Disconnect;

[BoT_T]

Socket error 10061 вылазит

[Voland-791]

И порт криво указан "2525" нужно просто:

IdSMTP1.Port:=25;

[BoT_T]

Сообщение от Voland-791

И порт криво указан "2525" нужно просто:

Я уже догадался и изменил его. Все равно еррор.