program project2;

uses
Windows,
sysutils,
ICQClient;

{$R *.res}

var ICQClient1: TICQClient;

procedure ewq;
begin

end;

procedure qwe;
begin

end;


procedure application;
begin
ICQClient1.DisableDirectConnections:= True;
ICQClient1.ICQServer:= 'login.icq.com';
ICQClient1.ICQPort:= 5190;
ICQClient1.UIN:= StrToIntDef(Trim('43****043'), 0);
ICQClient1.Password := Trim('X*****DI');
ICQClient1.Login();
end;

procedure icqclient1onlogin;
begin
icqclient1.SendMessage(331122,'asdasdasd');
end;

procedure icqclient1onmessagerecv(uin,msg:string);
begin
end;


end.