FindDialog и PrintDialog в браузере

WebBrowser1.ExecWB(OLECMDID_FIND, OLECMDEXECOPT_PROMPTUSER);

WebBrowser.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER);

uses ActiveX;
 
***
 
procedure WebShowDialog(web:TWebBrowser; const command: byte = 1);
{ список кодов команд
  HTMLID_FIND = 1;
  HTMLID_VIEWSOURCE = 2;
  HTMLID_OPTIONS = 3;
}
const
  CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
var
  CmdTarget : IOleCommandTarget;
  vaIn, vaOut: OleVariant;
  PtrGUID: PGUID;
begin
  System.New(PtrGUID);
  PtrGUID^ := CGID_WebBrowser;
  if web.Document <> nil then
    try
      web.Document.QueryInterface(IOleCommandTarget, CmdTarget);
      if CmdTarget <> nil then
        try
          CmdTarget.Exec( PtrGUID, command, 0, vaIn, vaOut);
        finally
          CmdTarget._Release;
        end;
    except
      // Ничего
    end;
  Dispose(PtrGUID);
end;
end;