使用webbrowser后，系统内存使用量不断增长？！(50分)

主程序
procedure TGetWebDataMain.CheckBox9click(Sender: TObject);
begin
try
If CheckBox9.Checked = true then
begin
pagecontrol1.ActivePage := tabsheet9;
WebBrowser9.Navigate(sspurl);
timer9.enabled := true;
end
else
timer9.Enabled := false;
except

end;
end;

procedure TGetWebDataMain.timer9ontimer(Sender: TObject);
begin
WebBrowser9.Navigate(sspurl);
end;

procedure TGetWebDataMain.webcomplete9(Sender: TObject; const pDisp: IDispatch;
var URL: OleVariant);
begin
if pos('1Event',webbrowser9.LocationURL) > 0 then
myth.create(WebBrowser9,datasource9,connectstr,listbox9);
end;

网页内容处理线程

constructor myth.Create(wb:TwebBrowser;ds:Tdatasource;connectstr:string;lb:Tlistbox);
begin
inherited create(true);
FreeOnTerminate := True;
ADOQuery1 := TADOQuery.Create(nil);
ADOQuery2 := TADOQuery.Create(nil);
try
ADOQuery1.ConnectionString := connectstr;
ADOQuery2.ConnectionString := connectstr;
ds.DataSet :=ADOQuery1;
except
end;

if not wb.busy then
begin
try
doc:=IHTMLDocument2(wb.document);
htmstr:=doc.body.outerhtml;
lb1 := lb;
gettext();
except
end;
adoquery2.free;
end;

end;

試一下動態創造WebBrowser!!
如果你只想得到網貢代碼,那你可以使用idhttp,或tsocketcilent控件...

谢谢kouchun
用户需要看打开的网页，而且代码写了很多了

IE本来就存在内存泄露。
试试多调用CoFreeUnusedLibraries看看能不能减少一些泄露

感谢两位，请帮忙看看程序上是否有不妥当的地方，导致内存消耗很快