Последовательная отсылка одного и того же сообщения со списка UIN на 1 номер ICQ

[Ra1n]

У меня есть список UIN (ListBox1) и список паролей к ним соответственно (ListBox2). Мне надо, что постепенно с каждого UIN со списка отсылалось одно и тоже сообщение на один номер ICQ (его ввожу в Edit1). Столкнулся с проблемой - все что делаю, то сообщение идет только с последнего номера (понимаю, что чтото не так в цикле). Помогите кто-нить - дайте отрезок рабочего цикла, а то уже 3 день голову ломаю и ничего не получается.

Работаю с компонентом TICQClient

P.S. Незнаю, правильно ли я раздел выбрал, если что - то sorry

[TwiX]

for i:=0 to ListBox1.Items.Count -1 do
begin
   LogIn(ListBox1.Items.String[i], ListBox2.Items.String[i]); //процедура, которая логинится в ICQ по имени и паролю
   Send(StrToInt(Edit1.Text)); //процедура, которая отсылает сообщение на номер
end;

Вроде этого достаточно)

[Ra1n]

Хм.....

LogIn(ListBox1.Items.String[i], ListBox2.Items.String[i]); //процедура, которая логинится в ICQ по имени и паролю

Она немного другая:

ICQClient1.UIN:=strtoint(ListBox1.Items[i]); //  UIN
ICQClient1.Password:=(ListBox2.Items[i]);    // Пароль
ICQClient1.Login();                          // Соединяемся

Send(StrToInt(Edit1.Text)); //процедура, которая отсылает сообщение на номер

Эта тоже немного по другому:

IcqClient1.SendMessage(StrToInt(Edit1.text),''+Memo1.Lines.Strings[i]+''); //Отсылаем текст

А в общем, если даже и исправить эти процедуры, то тогда вообще не отсылает (даже с последнего номера):

procedure TForm1.BitBtn1Click(Sender: TObject);
Var n, i: integer; z: integer;
begin
z:=StrToInt(Edit1.text);
 for i:=0 to ListBox1.Items.Count-1 do
begin
ICQClient1.UIN:=strtoint(ListBox1.Items[i]); //  UIN
ICQClient1.Password:=(ListBox2.Items[i]);    // Пароль
ICQClient1.Login();                          // З"єднуємось
ICQClient1.SendMessage(z,''+Memo1.Lines.Strings[i]+''); //Надсилаємо повідомлення
end;
end;

[raxp]

подход к задаче следует поменять
забыли обработку статуса подключения - ICQClient1.OnLogin и сделайте скажем таймер (поток) внутри которого будет происходить смена номера по флагу:

timesetevent(3000,0,@Ontmr2,0,1); // время не важно, все равно по флагу разрешение
i:= 0;
ICQClient1.OnLogin:= Login;
...

procedure Ontmr2(uTimerID, uMessage: uint;dwUser, dw1, dw2: dword) stdcall;
begin
 if not flag then begin
  ICQClient1.UIN:=strtoint(ListBox1.Items[i]); //  UIN
  ICQClient1.Password:=(ListBox2.Items[i]);    // Пароль
  ICQClient1.Login($10000000);                     // Соединяемся

  inc(i); if i> listbox2.items.count-1 then i:=0;
  flag:= true 
 end
end;


procedure icqsock.Login(Sender: TObject);
begin
 ICQClient1.MaskIntoQIP($09090909); //маскируемся под QIP
 // желательно задержку
 ...
 //
 ICQClient1.SendMessage(uin, txt); // посылаем сообщение
 // желательно задержку
 ...
 //
 ICQClient1.Login(S_OFFLINE); // отключаемся 
 flag:= false // разрешаем подключение под новым номерам
end;

[TwiX]

Я имел в виду, что Login и Send будут написаны вручную)
Тогда, если мне не изменяет память, то у ICQClient есть свойство logged или что-то подобное, но я могу ошибся, то можно и так:

procedure TForm1.BitBtn1Click(Sender: TObject);
Var n, i: integer; z: integer;
begin
z:=StrToInt(Edit1.text);
 for i:=0 to ListBox1.Items.Count-1 do
begin
 ICQClient1.UIN:=strtoint(ListBox1.Items[i]); //  UIN
 ICQClient1.Password:=(ListBox2.Items[i]);    // Пароль
 ICQClient1.Login();                          // З"єднуємось
 while (not ICQClient1.Logged) do sleep(200); //ждём пока не залогинимся
 ICQClient1.SendMessage(z,''+Memo1.Lines.Strings[i]+''); //Надсилаємо   повідомлення
 ICQClient1.Login(S_OFFLINE);
end;
end;