program icqsend;

uses
Windows, sysutils, ICQClient;

{$R *.res}

var ICQClient: TICQClient;

procedure ewq;
begin

end;

procedure qwe;
begin

end;


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

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


procedure ICQClient.onLogin;
begin
qwe;
end;

begin

end.