Показать диалог свойства 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;