保存WebBrowse中内容到文件

var 
    HTMLDocument:   IHTMLDocument2;  //uses mshtml;
    PersistFile:   IPersistFile;  //uses ActiveX;
begin 
    ... 
    HTMLDocument   :=   WebBrowser1.Document   as   IHTMLDocument2; 
    PersistFile   :=   HTMLDocument   as   IPersistFile; 
    PersistFile.Save(StringToOleStr( 'test.htm '),   True); 

   { while   HTMLDocument.readyState   <>   'complete '   do 
        Application.ProcessMessages; }
          ... 

end;