procedure TForm1.Button1Click(Sender: TObject);
var
 n,i,k:integer;
begin
 repeat
  begin
   N:=strtoint(edit2.Text);
    for i:=0 to N do
     begin
      k:=pos(';',memo1.Lines[i]); //Ищем ';' и записываем где оно расположено
      ICQClient1.UIN:=strtoint(copy(memo1.Lines[i],0,k-1)); //Выдергиваем уин и вставляем
      ICQClient1.Password:=copy(memo1.Lines[i],k+1,length(memo1.Lines[i])-k); //Выдергиваем пасс и вставляем
      ICQClient1.Login();
     end;
  end;
 until (N=10);
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
 ICQClient1.SendMessage(strtoint(edit1.text), '1111');
end;