Delphi - para enviar e-mails a muchas direcciones!!!

estoy utilizando delphi 6.0 y un objeto de la paleta de fastnet que se llama NMSNMTP.
este es el codigo que estoy utilizando y funciona pero no se envia a varios e-mails al mismo tiempo.

NMSMTP1.Host:= 'codetel.net.do';
NMSMTP1.Port := 25;

if not NMSMTP1.Connected then
NMSMTP1.Connect;

NMSMTP1.PostMessage.FromAddress := femails.Edit1.Text;
NMSMTP1.PostMessage.FromName := femails.Edit2.Text;
NMSMTP1.PostMessage.Subject := femails.Edit3.Text;
NMSMTP1.PostMessage.ToAddress.Add(femails.Edit4.Text);
NMSMTP1.PostMessage.ToCarbonCopy.Add(femails.Edit5.Text) ;
NMSMTP1.PostMessage.Body.Clear ;
NMSMTP1.PostMessage.Body.Add(femails.Memo1.Text);
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
necesito enviarlo a muchos correos almismo tiempo preferiblemente con el carbon copy...

gracias de ante mano!!!

Por cada direccion de destino debes hacer

NMSMTP1.PostMessage.ToCarbonCopy.Add(correodestino) ;

ej para enviar e-mail masivo como copia oculta:

qrEmails.First;

While not qrEmails.Eof do
begin
NMSMTP1.PostMessage.ToCarbonCopy.Add(qrEmails.FieldbyName('Email').asString;
qrEmails.Next;
end;

Saludos

Hola oye disculpa intente usar tu codigo para mandar correo pero me marca error en
NMSMTP1.PostMessage.FromAddress :=

quiziera saber que e slo ke debo de poner ahi
y tmb tengo dudas en la parte de
NMSMTP1.Host:=
NMSMTP1.Port :=
por ke pones
disculpa soy nueva en delphi asi ke te agadeceria si me dieras respondieras