Отправка файла по почте

[hacker_007]

Для передачи файла на почту, решил использовать этот код:

procedure TForm1.Button1Click(Sender: TObject);
begin
TIdAttachment.Create(IdMessage1.MessageParts, 'c:\text.txt');
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='*****';
IdSMTP1.Password:='*****';
with IdMessage1 do
begin
Body.Assign(Memo1.Lines);
From.Text := 'site@bk.ru';
Recipients.EMailAddresses := 'site@bk.ru';
Subject := 'lol';
end;
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
end;

Но чё он не работает... Выдаёт ошибку... SocketError

[eoln]

Варианты:
- интернет отвалился
- на mail.ru временные неполадки
- порт закрыл провайдер/администратор чтобы спамеров покарать (наиболее вероятно)

Проверить порт можно, например, через telnet командой o smtp.mail.ru 25 или другим софтом
Можно попробывать альтернативный порт 2525