procedure TForm1.startClick(Sender: TObject);
begin
for I := 0 to 1 do
begin
  icqclient1.UIN:=uin2[i];
  icqclient1.Password:=pass2[i];
  icqclient1.Login();
  icqclient1.ChangePassword('ipc');
  icqclient1.LogOff;
  ShowMessage('ok');
end;
end;