Подключение компонента в модуль

[ForuGAM]

Приветствую, друзья! суть проблемы такая: Мне нужно чтобы данный код запускался без формы то есть в unit'е .

unit Unit2;
 
 
interface
procedure icq;
 
implementation
procedure icq;
begin
ICQClient1.UIN:='UIN';
ICQClient1.Password:='Password';
ICQClient1.Login();
 
end;
 
end.

Данный код запускается только с компонентом "ICQClient1".
Как мне подключить этот компонент к Unit?
И запустить это все дело без формы.
Работаю в 7 делфи.

Описание программы: По заданному icq номеру подключиться к серверу. Без формы.

Пример рабочего кода с формой:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   xpman,  ICQClient;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    ICQClient1: TICQClient;
    procedure Button1Click(Sender: TObject);
 
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
ICQClient1.UIN:=strtoint(edit1.Text);
 ICQClient1.Password:=edit2.Text;
ICQClient1.Login();
end;
end;

Сам компонент.

[s-andriano]

Чтобы код запускался, ему как-то нужно передать управление. Например, в блоке инициализации.

Чтобы подключить другой модуль (не важно, к программе или к юниту) его надо прописать в строке uses.

[ForuGAM]

Так запустился

unit Unit1;

interface
uses   Windows, ICQClient;


var
ICQClient1: TICQClient;
procedure icq;
implementation
procedure icq;
begin

 ICQClient1.Password:='';
ICQClient1.Login();

end;
end.

А вот так если добавить строку ICQClient1.UIN:=''; То ошибка Incompatible types: 'Cardinal' and 'String' Как исправить?

unit Unit1;

interface
uses   Windows, ICQClient;


var
ICQClient1: TICQClient;
procedure icq;
implementation
procedure icq;
begin
ICQClient1.UIN:='';
 ICQClient1.Password:='';
ICQClient1.Login();

end;
end.

[raxp]

...чтобы данный компонент работал без формы в фоновом режиме, создайте класс, назначьте обработчики нужных методов, повесьте обработчик сообщений на AllocateHWnd() и вуа-ля.

Экзаменационный автобот или ICQ автоинформатор

[ForuGAM]

Сообщение от raxp

...чтобы данный компонент работал без формы в фоновом режиме, создайте класс, назначьте обработчики нужных методов, повесьте обработчик сообщений на AllocateHWnd() и вуа-ля.

Экзаменационный автобот или ICQ автоинформатор

Спасибо за совет.
Буду пробовать)

[ForuGAM]

Компилируется.
Если в class не добавлено procedure Login(Sender: TObject);
Когда добавляю ругается.
Unsatisfied forward or external declaration: 'ICQClient.Login'
Какую процедуру использовать для запуска?

unit Unit1;

interface
uses   Windows, ICQClient, SysUtils;
 type
  icqsock=class
    ICQClient1:TICQClient;
  public

  end;

var
ICQClient1: TICQClient;
procedure Login(Sender: TObject);
implementation
procedure Login(Sender: TObject);
begin
  ICQClient1.ConvertToPlaintext := True;  
  ICQClient1.ICQServer := 'login.icq.com';        
  ICQClient1.ICQPort := 5190;                     
  ICQClient1.Password := 'uin';       
  ICQClient1.UIN := StrToInt('password');       
  ICQClient1.Login;

end;
end.

Если делать так

unit Unit1;

interface
uses   Windows, ICQClient, SysUtils;
 type
  ICQClient=class
    ICQClient1:TICQClient;
    procedure ICQClient.ConnectionFailed(Sender: TObject);
  public

  end;

var
ICQClient1: TICQClient;
    procedure ICQClient.ConnectionFailed(Sender: TObject);
implementation

    procedure ICQClient.ConnectionFailed(Sender: TObject);
begin
  ICQClient1.ConvertToPlaintext := True;          
  ICQClient1.ICQServer := 'login.icq.com';       
  ICQClient1.ICQPort := 5190;                     
  ICQClient1.Password := 'pass';       
  ICQClient1.UIN := StrToInt('uin');      
  ICQClient1.Login;

end;

То ошибка Undeclared identifier: ICQClient

[raxp]

type
  icqsock=class
    ICQClient1:TICQClient;
    procedure MessageRecv(Sender: TObject; Msg, UIN: String);
    procedure ConnectionFailed(Sender: TObject);
    procedure AddedYou(Sender: TObject; UIN: String);
    procedure Error(Sender: TObject; ErrorType: TErrorType; ErrorMsg: String);
    procedure Login(Sender: TObject);
    procedure LogOff(Sender: TObject);
  public
    constructor Create;
    destructor Destroy; override;
    procedure WndProc(var Msg:TMessage);
  end;

var
  Msg: tmsg;
  ICQClient1: TICQClient;

[ForuGAM]

Спасибо raxp.
Но я смотрел этот код, я не могу его скомпилировать, в первою очередь ругает на procedure WndProc(var Msg:TMessage);

Ладно спасибо. Оставлю эту затею на потом.