Ошибка при отправки Сообщения

[MAZADA]

Здрасти все форумчанам..
Не получается никак отправить сообщения на mail.ru
ошибка socket error 10060
нашел очень много исходником на отправку писем и у каждых из них та же ошибка!
В чем причина?

код:

procedure TForm1.Button1Click(Sender: TObject);
  var
    i         :  Integer;
    addr      :   String;
    proxylist : TextFile;
  begin

    with smtp do
      begin
        Host               := Edit1.Text ;
        Port               := StrToInt(Edit2.Text);
        AuthenticationType := atLogin;
        smtp.Username                 := Edit3.Text;
        smtp.Password                 := Edit4.Text;
      end;

    with Mes do
      begin
        Body.Text := 'Òåìà';
        Subject     := 'Ïðîâåðêà';
        Mes.From.Text                 := Edit3.Text;
        Mes.Recipients.EMailAddresses := Edit7.Text;
      end;

    if CheckBox1.Checked = False then
      begin
        IdSocksInfo1.Host := Edit5.Text;
        IdSocksInfo1.Port := StrToInt(Edit6.Text);
          for i := 1 to 15 do
            begin
              smtp.Connect;
                if smtp.Connected = True then
                  smtp.Send(Mes);
              smtp.Disconnect;
            end;
      end
    else
      begin
        AssignFile(proxylist, Edit8.Text);
        Reset(proxylist);
          while not eof(proxylist) do
            begin
              ReadLn(proxylist, addr);
              IdSocksInfo1.Host := copy(addr, 1, Pos(':', addr) - 1 );
              IdSocksInfo1.Port := StrToInt(copy(addr, Pos(':', addr) + 1, length(addr)));
                for i := 1 to 15 do
                  begin
                    smtp.Connect;
                      if smtp.Connected = True then
                        smtp.Send(Mes);
                    smtp.Disconnect;
                  end;
            end;
        CloseFile(proxylist);
      end;
  end;

procedure TForm1.CheckBox1Click(Sender: TObject);
  begin
    if CheckBox1.Checked = True then
      begin
        Button2.Enabled :=  True;
        Edit5.Enabled   := False;
        Edit6.Enabled   := False;
        Edit8.Enabled   :=  True;
        Label5.Enabled  := False;
        Label6.Enabled  := False;
      end
    else
      begin
        Button2.Enabled := False;
        Edit5.Enabled   :=  True;
        Edit6.Enabled   :=  True;
        Edit8.Enabled   := False;
        Label5.Enabled  :=  True;
        Label6.Enabled  :=  True;
      end;
  end;
procedure TForm1.Button2Click(Sender: TObject);
  begin
    if OpenDialog1.Execute then
      Edit8.Text := OpenDialog1.FileName;
  end;
end.

что делать, письмо то надо доставить...

[Valio]

Ошибка - нет соединенеия с сервером. Смотри параметры подулючения.