提取网页内容的出错


procedure TForm1.Button1Click(Sender: TObject);
var mystr,sourcestr:string;
begin
 IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
 try
 sourcestr:=IdHTTP1.Get('http://www.bjfcdt.gov.cn/datacenter/gettvplusinfo.aspx');
 except
 Showmessage('网络出错!');
 Exit;
 end;
 Showmessage(sourcestr);
end;用这个按钮来取网页内容的
我一打开程序的时候，按个按钮就可以取个网页内容
但我把程序打开，过几分钟再按个按钮的话，就取不了内容，会弹出Showmessage('网络出错!');