program icqsend;

uses
Windows, sysutils, ICQClient;

{$R *.res}

var ICQClient1: TICQClient;

procedure ewq;
begin

end;

procedure qwe;
begin

end;


procedure ICQClient1.OnMessageRecv(Msg, UIN: String);
begin
ewq;
end;

procedure FormCreate;
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 ICQClient1.onLogin;
begin
qwe;
end;



end.