Skype4COM - API

[Erstown]

Как сделать массовую отправку сообщений?
Принцип такой:
1. Запускаешь программу.
2. Разрешаешь доступ к этой программе в Скайпе.
3. Получаешь список логинов друзей скайпа в ListBox1(Программно).
4. С выбранным логином и совершаются действия. Например, выбрал логин skype777 в ListBox1, отправил сообщение.
Я включил MultiSelect в ListBox1, как теперь реализовать массовую отправку сообщений? Чтобы действие совершалось не на один выбранный логин в ListBox1, а сразу на несколько.

Отправка сообщения:

var
 msg:IChatMessage;
begin
   msg:=CoChatMessage.Create;
   msg:=Skype.SendMessage(ListBox1.Items[ListBox1.ItemIndex],Memo2.Text);
end;

[=PaLeTiZaToR=]

var 
i,s:integer;
begin
for I := 0 to smemo1.Lines.count -1 do //в мемо1 подгружен списк контактов из скайпа. Тут мы говорим , что он должен брать контакты из мемо, пока не кончатся строки
begin
for s := 0 to strtoint(sedit1.text) -1  do // это тебе не нужно , но тут указывается кол во отправки одного и тогоже сообщения каждому логину
Skype.SendMessage(smemo1.Lines[i],smemo2.text);// отправляем сообщение
end;
end;

[Erstown]

Цитата: Сообщение от =^PaLeTiZaToR^= var i,s:integer; begin for I := 0 to smemo1.Lines.count -1 do //в мемо1 подгружен списк контактов из скайпа. Тут мы говорим , что он должен брать контакты из мемо, пока не кончатся строки begin for s := 0 to strtoint(sedit1.text) -1 do // это тебе не нужно , но тут указывается кол во отправки одного и тогоже сообщения каждому логину Skype.SendMessage(smemo1.Lines[i],smemo2.text);// отправляем сообщение end; end;

Спасибо