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

При нажати на OK показывает:
Код:
1 2 3 4 | procedure TForm1 . Button2Click(Sender: TObject);
begin
IdSMTP1 . Send(idMessage1);
<font color="Blue"> end ;</font>
|
Сам код:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | 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 .
|