procedure TForm1.FlatButton7Click(Sender: TObject);
var
  i,n:dword;
  s,s2:string;
begin
uins.Lines.LoadFromFile(FlatEdit5.text);
for i:=0 to uins.Lines.Count-1 do
  begin
  n := pos(';',uins.Lines.Strings[i]);
    If (n > 0) then
    begin
      masslogin.Clear;
      masslogin.text := copy(uins.Lines.Strings[i],1,n-1);
      //memo2.Lines.Add(s);
      inc(n);
      masspass.Clear;
      masspass.text := copy(uins.Lines.Strings[i],n,length(uins.Lines.Strings[i]) - n+1);
      //memo3.Lines.Add(s);
            
       ICQClient1.ConvertToPlaintext := True;          //Convert RTF text to plain (when you don't use TRichEdit)
  ICQClient1.ICQServer := 'login.icq.com';        //Default login server
  ICQClient1.ICQPort := 5190;                     //Default login port
  ICQClient1.Password := masspass.text;       //Set password
  ICQClient1.UIN := StrToInt(masslogin.text);       //Set UIN
  ICQClient1.Login;                               //Login to server!

    end;
  end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
    if ICQClient1.LoggedIn then
    begin
  ICQClient1.ChangePassword('ну тут нужный пароль который будет') ;
    Label1.Caption:='Успешно!!!';
    end;