TicqClient проблема с условием

[DKENT]

Здраствуйте, пишу программу которая проверяет список icq и паролей к ним на правильность по списку!
При вводе одного icq программа работает, а если в компонент memo ввожу 3 icq пара пароль логин то не работает!Прошу помощи!!!

procedure TForm1.Button1Click(Sender: TObject);
begin
for i := 0 to memo1.lines.Count-1 do
begin
ICQClient1.UIN :=strtoint(Copy(Memo1.Lines[i],1,Pos(';',Memo1.Lines[i])-1));
ICQClient1.Password :=Copy(Memo1.Lines[i],Pos(';',Memo1.Lines[i])+1,Length(Memo1.Lines[i]));
ICQClient1.Login();
end;
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
Memo2.Lines.Add(Memo1.Lines[i]) ;
end;

[Mad_Cat]

3 icq пара пароль логин то не работает

либо добавь задержку либо создавай динамически еще пару TicqClient
и disconnect ему делай