[Electronic_Arts]

в том случае -

вот тебе цикл

Код:

var
i:integer;
msg: tidmessage;
begin
for i:=0 to Listbox1.items.count - 1 do
begin
...
...
...
msg.Recipients.EMailAddresses:=listbox1.items[i];
...
...
...
end;
end;