Как осуществить отправку писем из memo1

[/Boom\]

Idsmtp1.Host:=Edit5.text;
idsmtp1.Port:=25;
idsmtp1.Username:=edit6.text;
idsmtp1.Password:=edit7.text;
IdMessage1.From.Address := edit2.text;
IdMessage1.Recipients.Add.Address := edit4.text;
IdMessage1.Subject := edit3.text;
idmessage1.Body.Text:=memo3.Text;
idsmtp1.Connect;
idsmtp1.Send(idmessage1);

У меня вот такой код,одно сообщение отпровляется добовляю два емайла вылазиет ошибка.
Подскожите что нужно исправить или дописать

[slesh]

Для начала опиши что за ошибка

[/Boom\]

Error sokced

[0verbreaK]

Idsmtp1.Host:=Edit5.text;
idsmtp1.Port:=25;
idsmtp1.Username:=edit6.text;
idsmtp1.Password:=edit7.text;
IdMessage1.From.Address := edit2.text;
IdMessage1.Recipients.Add.Address := edit4.text;
IdMessage1.Subject := edit3.text;
idmessage1.Body.Text:=memo3.Text;
idsmtp1.Connect;
idsmtp1.Send(idmessage1);

У меня вот такой код,одно сообщение отпровляется добовляю два емайла вылазиет ошибка.
Подскожите что нужно исправить или дописать

Может задержку сделать. Sleep(2000);

[/Boom\]

Idsmtp1.Host:=Edit5.text;
idsmtp1.Port:=25;
idsmtp1.Username:=edit6.text;
idsmtp1.Password:=edit7.text;
IdMessage1.From.Address := edit2.text;
IdMessage1.Recipients.Add.Address := memo2.text;
IdMessage1.Subject := edit3.text;
idmessage1.Body.Text:=memo3.Text;
idsmtp1.Connect;
idsmtp1.Send(idmessage1);
вернее спам лист берется из memo2

[/Boom\]

тему можно закрыть уже сам разобрался.