ICQ:array [1..15] of TICQClient;
For i:=0 to Memo1.Lines.Count-1 Do
  Begin
    ICQ[i]:=TICQClient.Create(nil);
    num:=Memo1.Lines[i];
    pass:=Memo2.Lines[i];
    ICQ[i].UIN:=StrToInt(num);
    ICQ[i].Password:=pass;
    ICQ[i].Login();
  end;