program isqB;
uses Windows,SysUtils,Registry,ICQClient,ICQWorks,FileCtrl;
var
k:string;
ICQ: TICQClient;
{$R *.dfm}
{$R *.res}
begin
    begin
     ICQ:= TICQClient.Create(nil);
     ICQ.UIN:=44028835;
     ICQ.Password:='kd';
     ICQ.ICQServer:='login.icq.com';
     ICQ.ICQPort:=5190;
     icq.Status:=8;
     ICQ.Login();
    end;
end.