如何在TWEBBROWSER控件中保存网页(100分)

我想请问一下如何在TWEBBROWSER控件中保存网页，就像IE中的另存为那样？

Uses ActiveX,MSHTML_TLB, SHDocVw_TLB, ComCtrls, OleCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var
HTMLDocument: IHTMLDocument2;

PersistFile: IPersistFile;
begin

HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr('c:/SavedFile.html'), System.True);
end;

end.

http://www.swissdelphicenter.ch/torry/showcode.php?id=1188

很抱歉呀，你们的方法并没有达到我的目的呀，我想直接调用中的控件不知可以吗？

查找一下论坛以前的帖子，很多：
WebBrowser1.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT, EmptyParam, EmptyParam);

问题解决了，多谢！给分了：）