[Paskal]

Все прет.
Такая запара делаю прогу для массовой отправки писем столкнулся с проблемой передачи адреса в IdMessage1.Recipients.EMailAddresses
Когда пишу так:

Код:

1	IdMessage1.Recipients.EMailAddresses:='mymail@mail.ru';

то письмо отправляет правда тема письма не в той кодировке но это в другой теме.
А когда пишу так то кидает эту ошибку:
http://www.imagepost.ru/?v=mqwtgytju...mdgsldpmrr.PNG
IdMessage1.Recipients.EMailAddresses:=Memo2.Lines[1];
ps.Memo2.Lines[1] это список адресов получателей.
ну а вот сам цикл.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.Button1Click(Sender: TObject); var  i:integer; begin //Panel1.Visible:=true; for i := 1 to Memo2.Lines.Count do      IdSMTP1.Host:=Edit4.Text;            //Хост      IdSMTP1.Port:=StrToInt(Edit3.Text); //Порт      IdSMTP1.Username:=Edit1.Text;     //Логин      IdSMTP1.Password:=Edit2.Text;    //Пароль        IdMessage1.Body.Text:=Memo1.Text; //Текст письма      IdMessage1.From.Text:=Edit5.Text;  //От кого      IdMessage1.Subject:=Edit7.Text;    //AnsiToutf8(subject);      IdMessage1.Recipients.EMailAddresses:=Memo2.Lines[1];//Кому      i:=i+1;      IdSMTP1.Connect();      if IdSMTP1.Connected = True then      IdSMTP1.Send(IdMessage1);      IdSMTP1.Disconnect;      // Panel1.Visible:=false; end;