请问如何在IE控件中Show出查找对话框啊？

向它发现ctrl+F就可调出
或用下面方法：
procedure TMainForm.MenuEditFindClick(Sender: TObject);
var
  CmdTarget: IOleCommandTarget;
  PtrGUID: PGUID;
  vaIn, vaOut: Olevariant;
const
  CLSID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
  HTMLID_FIND = 1;
begin
      for i:=0 to HomePage.ActivePage.ControlCount-1 do
         if HomePage.ActivePage.Controls[i] is TWebBrowser  then
         begin           New(PtrGUID);
  PtrGUID^ := CLSID_WebBrowser;
  if (HomePage.ActivePage.Controls[i] as TWebBrowser).Document <> nil then
  try
    (HomePage.ActivePage.Controls[i] as TWebBrowser).Document.QueryInterface(IOleCommandTarget, CmdTarget);
    if CmdTarget <> nil then
    try
      CmdTarget.Exec(PtrGuid, HTMLID_FIND, 0, vaIn, vaOut);
    finally
      CmdTarget._Release;
    end;
  except end;
  Dispose(PtrGUID);
         end;
end;