unit Unit1;

interface

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

type
    TForm1 = class(TForm)
      Label1: TLabel;
      Label2: TLabel;
      Label3: TLabel;
      Edit1: TEdit;
      Edit2: TEdit;
      Edit3: TEdit;
      Button1: TButton;
      ICQClient1: TICQClient;
      procedure Button1Click(Sender: TObject);
      procedure ICQClient1Login(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    ICQClient1.UIN := 99999999; // где XXXXXXXXX - номер зарегистрированного ICQ-аккаунта
    ICQClient1.Password := '9999999'; // где pwd - пароль зарегистрированного ICQ-аккаунта
    ICQClient1.Login(); // авторизируемся <img src="http://s5.ucoz.net/sm/23/smile.gif" border="0" align="absmiddle" alt="smile" />
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
var
    I: Integer;
begin
    for I := 0 to 20 do
    begin
      ICQClient1.SendSMS(Edit1.Text , '(' + Edit2.Text + ' , ICQ) ' + Edit3.Text);
    end;
end;

end.