Показать диалог свойства TWebBrowser

- Сколько на свете дураков есть - ума не приложу!
- Что случилось?
- Да сказал я вчера одному "сходи на сайт".
- И?
- Так после него компьютер сушить пришлось!

// Show the "Properties Dialog" 
// Den Eigenschaften Dialog anzeigen 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  eQuery: OLECMDF; 
  vaIn, vaOut: OleVariant; 
begin 
  try 
    eQuery := Webbrowser1.QueryStatusWB(OLECMDID_PROPERTIES); 
    if (eQuery and OLECMDF_ENABLED) = OLECMDF_ENABLED then 
      Webbrowser1.ExecWB(OLECMDID_PROPERTIES, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut); 
  except 
  end; 
end;