TICQClient тупит.

Я написал спамер на Delphi с использованием TICQClient.
Все правильно написал, но вот в чем тупость, программа вообще не подключает уин. Сколько не пытался, не заходит в асю со спамера. Что за фигня?
HELP!='(

Вот сам спамер

 

Спрашивается, нафига exe выкладывать? Показывай исходник коннекта

 

Точнее

Code:

unit spammer;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    ICQClient1: TICQClient;
    Panel2: TPanel;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Button3: TButton;
    Memo1: TMemo;
    Label6: TLabel;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ICQClient1Login(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Button2.Enabled:=false;
Label3.Font.Color:=clRed;
Label3.Caption:='Offline';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.UIN:=StrToInt(Edit1.Text);
ICQClient1.Password:=Edit2.Text;
ICQClient1.Login();
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
if ICQClient1.LoggedIn then
Label3.Caption:='Online';
label3.Font.Color:=clGreen;
Button1.Enabled:=false;
Button2.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
button1.Enabled:=true;
button2.Enabled:=false;
ICQClient1.LogOff;
Label1.Font.Color:=clRed;
Label1.Caption:='Offline';
end;

procedure TForm1.Button3Click(Sender: TObject);
var
a,b,c:integer;
begin
a:=StrToInt(Edit3.Text);
b:=StrToInt(Edit4.Text);
for c:=a to b do begin
ICQClient1.SendMessage(c,'Memo1.Lines');
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Form2.ShowModal;
end;

end.

 

Скорее всего юзаеш неактуальную версию компонента

 

"Скорее всего юзаеш неактуальную версию компонента"
Скачал с официального сайта, но у кого есть рабочая, поделитесь плиз)