Поиск на странице открытой в webbrowser

procedure WBFindText(Browser: TWebBrowser; const Direction: Boolean; const FText: String;
  const SearchScope, Flags: Integer);
var
  Doc: IHTMLDocument2;
  SelObj: IHTMLSelectionObject;
  SelRange: IHtmlTxtRange;
begin
  Doc := Browser.Document as IHTMLDocument2;
  SelObj := Doc.Selection;
  SelRange := SelObj.CreateRange as IHTMLTxtRange;
  SelRange.Collapse(Direction);
  if SelRange.FindText(FText, SearchScope, Flags) then
  begin
    SelRange.Select;
    SelRange.ScrollIntoView(True);
  end
    else MessageBox(Handle, 'По Вашему запросу ничего не найдено', 'Поиск текста', MB_ICONINFORMATION);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
WBFindText(MyCoolBrowser, False, 'MyCoolText', 1, 0); // Найти вперед
//WBFindText(MyCoolBrowser, True, 'MyCoolText', - 1, 1); // Найти назад

// ...
  else
  begin
    Doc.Selection.empty; // <--- убираем выделение найденного текста
    MessageBox(Form1.Handle, 'По Вашему запросу ничего не найдено',
      'Поиск текста', MB_ICONINFORMATION);
  end;

WebBrowser1.ExecWB(OLECMDID_FIND, OLECMDEXECOPT_DODEFAULT);