Сохранить страницу в WebBrowser на диск

Договорились встретиться ламер, юзер и хакер. Ламер и хакер пришли вовремя, а юзер опоздал. Приходит с огромной книгой и говорит:
- Извините! Купил книгу по TCP/IP да зачитался.
Ламер:
- А что такое TCP/IP?
Хакер:
- А что такое книга??

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;