автоматическая перегрузка модема

Добрый день написал программу на delphi для автомат перегрузки роутера через веб интерфейс но программа зависает ( где ошибка подскажите пожалуйста с меня +

листинг

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
error:=1;
timer1.Enabled:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
icmp.Host:=edit1.text;
icmp.Ping();

label1.Caption:='Âðåìÿ äî õîñòà: '+inttostr(icmp.ReplyStatus.MsRoundTripTime)+'ms';
 label2.Caption:=inttostr(error);
 if (icmp.ReplyStatus.MsRoundTripTime>4000) then error:=error+1;
 if (error=3)
 then
 begin
  timer1.Enabled:=false;
//  showmessage('aaaaa');
idhttp1.Request.BasicAuthentication :=true;
idhttp1.Request.Username:='admin';
idhttp1.Request.Password:='admin';
try
idhttp1.Get('http://192.168.0.1/cgi-bin/reset.cgi')  ;
finally
    FreeAndNil( idhttp1 );
   end;
error:=1;
 timer1.Enabled:=true;
end;
   end;
end.

 

а зачем ты делаеш FreeAndNil?
тыже прибиваеш idhttp1 и повторное его уже заюзать не получится у тебя его.
попробуй закоментить эту строку