Ошибка.... прошу расталковать

[s1d0r]

Возникла такая вот ошибка ... долго я танцевал над программой что бы исправить. При том возникла вроде бы как на ровном месте не могу найти бреш. Вот листинг программы помогите пожалуста

var
  Form1: TForm1;
  i:integer;
  stopcircle: boolean;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  stopcircle:=false;
  Button1.Enabled:=false;
  for i:=StrToInt(LabeledEdit1.Text) to StrToInt(LabeledEdit2.Text) do
    begin
      LabeledEdit1.Text:=IntToStr(i);
      ICQClient1.UIN:=StrToInt(LabeledEdit1.Text);
      ICQClient1.Password:=LabeledEdit3.Text;
      ICQClient1.Login();
      Timer1.Enabled:=true;
      while Timer1.Enabled do
      Application.HandleMessage;
      if stopcircle then break;
    end;
  Button1.Enabled:=true;
  Timer1.Enabled:=false;
  ICQClient1.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  If ICQClient1.LoggedIn=true then
    begin
      ICQClient1.ChangePassword(LabeledEdit4.Text);
      ListBox1.Items.Add(IntToStr(ICQClient1.UIN)+';'+LabeledEdit4.Text);
      Label3.Caption:=IntToStr(ListBox1.Count);
    end
  else
    Begin
      ListBox2.Items.Add(IntToStr(ICQClient1.UIN)+';'+LabeledEdit3.Text);
      Label4.Caption:=IntToStr(ListBox2.Count);
    end;
  Timer1.Enabled:=false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
stopcircle:=true;
end;

[mihali4]

Попробуйте закомментировать строку
//ICQClient1.Free;

[Alter]

Вот это ICQClient1.Free; убрать из кода!

[Stalevar]

s1d0r

Что такое ICQClient1? Если компонент на форме, то не надо его Free.

[s1d0r]

тю блин вот так вот всё просто =))) Ну значит тогда ICQClient1.Disconnect надо использовать... Мне аж стыдно за такой тупой вопрос. Спасибо вам большое =)