Ошибка выходит с отправкой письма

[Vampir347]

Вообщем ошибка такая:

При нажати на OK показывает:
Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
IdSMTP1.Send(idMessage1);
end;

Сам код:
Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:=Edit1.Text;
IdSMTP1.Password:=Edit2.Text;
idMessage1.Body.Text:=Memo1.Lines.Text;
idMessage1.From.Text:=Edit4.Text;
idMessage1.Recipients.EMailAddresses:=Edit5.Text;
idMessage1.Subject:=Edit3.Text;
idSmtp1.Connect();
if idSmtp1.Connected = TRUE then
IdSMTP1.Send(idMessage1);
idSmtp1.Disconnect;
end;
end.

[Pavels13]

Попробуй так, у меня работает (на яндексе не проверял):
IdSMTP1.AuthenticationType:=atLogin ;
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25; // порт
IdSMTP1.Username:='user'; // имя пользователя от @
IdSMTP1.Password:='pass'; // пароль
IdSMTP1.Connect;

msg:=TIdMessage.Create(nil);
msg.Body.Add(Memo1.Text); // текст отправки
msg.Subject:=imy; // тема
msg.From.Address:='qqq@qqq.ru'; // Обратный адрес
msg.From.Name:='имя'; // От имя
msg.Recipients.EMailAddresses:='qqq @qqq.ru'; // кому отправить
msg.IsEncoded:=True;
IdSMTP1.Send(msg);
msg.Free;
IdSMTP1.Disconnect;

[Johnson]

Ну дельфяка же Вам русским языком говорит в чем дело...
Кстати откуда русская дельфяка? о0

а вобще... не if подключено, а while not подключено do sleep(10);