[Aless]

Доброго времени суток!Написал программу-почтовый клиент, к- рая должна отправлять сообщение с файликом.Вот код:

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  idSMTP1.Host :='www.mail.ru';
  idSMTP1.Username := 'почтовый ящик@mail.ru';
  idSMTP1.Password := '000000';
  idSMTP1.Connect(60000);
  idMessage1.CharSet := 'UTF - 8';
  idMessage1.Subject := AnsiToUTF8('yes!!!');
  idMessage1.Recipients.EMailAddresses := 'zxxzzxxz08@mail.ru';
  idMessage1.From.Name := AnsiToUTF8('i');
  idMessage1.From.Address:= 'pjankoffs@mail.ru';
  idMessage1.Body.Add(AnsiToUTF8(Edit1.Text));
  idMessage1.LoadFromFile(Edit2.Text);
  idSMTP1.Connected;
    try
  ShowMessage('OOOOOOOOOOOOOOOOOOOK!!!');
  idSMTP1.Send(idMessage1);
    finally
  idSMTP1.Disconnect;

Admin: Учимся пользоваться тегами!

Компилирую, Дельфи не ругается.Когда пытаюсь отправить письмо, на несколько секунд виснет и выдает ошибку."Project Project1.exe raised exception class EIdConnectTimeout with message 'Connect timed out'.Project stopped.Use step of Run continue."Помогите разобраться в чём здесь дело.