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;

type NumberUin = record n: integer end;
var f1: file of NumberUin; // файл с номерами уинов
type PassUin = record p: string end;
var f2: file of PassUin; // файл с паролями уинов

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ICQClient, ICQWorks, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    ICQClient1: TICQClient;
    procedure Button1Click(Sender: TObject);
    procedure Change;
    procedure ICQClient1Login(Sender: TObject);
    procedure ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
      ErrorMsg: String);
    procedure ICQClient1InfoChanged(Sender: TObject; InfoType: TInfoType;
      ChangedOk: Boolean);
    procedure ICQClient1LogOff(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  source:TStringList;
  tmp,uin,pass:string;

implementation

{$R *.dfm}

procedure TForm1.Change;
begin
 if source.Count>0 then
 begin
  tmp:=source.Strings[0];
  uin:=copy(tmp,1,pos(';',tmp)-1);
  pass:=copy(tmp,pos(';',tmp)+1,length(tmp));
  Memo1.Lines.Add(uin+' '+pass);
  ICQClient1.Password:=pass;
  ICQClient1.UIN:=StrToInt(uin);
  ICQClient1.ScreenName:=uin;
  ICQClient1.Login;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 source:=TStringList.Create;
 source.LoadFromFile('source.txt');
 ICQClient1.ConvertToPlaintext:=True;
 ICQClient1.ICQServer:='login.icq.com';
 ICQClient1.ICQPort:=5190;
 Change;
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
 Memo1.Lines.Add('con');
 ICQClient1.ChangePassword('newpass');
end;

procedure TForm1.ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
  ErrorMsg: String);
begin
 Memo1.Lines.Add(tmp+' Err: '+ErrorMsg);
 ICQClient1.LogOff;
end;

procedure TForm1.ICQClient1InfoChanged(Sender: TObject;
  InfoType: TInfoType; ChangedOk: Boolean);
var fil;
begin
 assignfile(fil,'changed.txt');
 if fileexists('changed.txt') then appendfile(fil)
  else rewrite(fil);
 writeln(fil,uin+';'+'newpass');
 closefile(fil);
 source.Delete(0);
 Memo1.Lines.Add(tmp+' Changed');
 ICQClient1.LogOff;
end;

procedure TForm1.ICQClient1LogOff(Sender: TObject);
begin
 Memo1.Lines.Add('dis');
 Change;
end;

end.