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

[Student :)]

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

листинг

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.

[slesh]

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