[dr. F.I.N.]

Попробуй что-нибудь типа:

Код:

type
  TForm1 = class(TForm)
  private
  ...
  public 
    procedure DoLogin;
  end;

var
  LoginNum: Integer;

implementation

procedure TForm1.DoLogin;
begin
  Inc(LoginNum);
  if LoginNum > strtoint(edit3.Text) then Exit;
  ICQClient1.LogOff;
  ICQClient1.ConvertToPlaintext := True;
  ICQClient1.UIN:=LoginNum;
  ICQClient1.Password:=edit2.text;
  ICQClient1.ICQServer := 'login.icq.com';
  ICQClient1.ICQPort := 5190;
  ICQClient1.Login;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LoginNum := strtoint(edit1.Text);
  DoLogin;
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
  ListBox1.Items.Add('yes!');
  DoLogin;
end;

procedure TForm1.ICQClient1ConnectionFailed(Sender: TObject);
begin
  ListBox1.Items.Add('no!');
  DoLogin;
end;

Писал на коленке. Не обессуть, если что