[GreenZip]

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

При нажати на 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.

[~TB~]

Скорее всего потому, что при OnButton2Click idSmtp1.Connected = False, так как при нажатии на Button1 есть такая строчка idSmtp1.Disconnect.