como faço p salvar o conteudo do webbrowser

procedure TForm1.FormCreate(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut);
end;

  OLECMDID_SAVEAS *
  OLECMDEXECOPT_PROMPTUSER *

  * (Dependendo do caso ver outras constantes na unit SHDocVw.pas)