Delphi twebbrowser поиск слов

[JekaX]

Добрые люди помогите!
Нужно найти слово в окне twebbrowser.
Использую вот это:

procedure TForm1.SearchAndHighlightText(aText: string);
var
  tr: IHTMLTxtRange; //TextRange Object
begin
  if not WebBrowser1.Busy then
  begin
    tr := ((WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
    //Get a body with IHTMLDocument2 Interface and then a TextRang obj. with IHTMLBodyElement Intf.

    while tr.findText(aText, 1, 0) do //while we have result
    begin
      tr.pasteHTML('<span style="background-color: Lime; font-weight: bolder;">' +
        tr.htmlText + '</span>');
      //Set the highlight, now background color will be Lime
      tr.scrollIntoView(True);
      //When IE find a match, we ask to scroll the window... you dont need this...
    end;
  end;
end;


procedure TForm1.Button5Click(Sender: TObject);
begin
SearchAndHighlightText('Текст для поиска');
end;

Загвоздка в том, что ищутся только англ слова.
Как найти слово на русском языке в кодировке cp1251? Подскажите!

[GreenWizard]

Извращение, конечно, но можно тупо поиск организовать поиск вручную.... самостоятельно обход DOMa и поиск внутри тэгов нужных (P, SPAN etc.)
ещё попробуй глянуть представление текста в DOM... может с кодировкой всё ок, а вот сам поиск тупит с русским текстом (а фиг их знает, что они в API начудили)

[JekaX]

Прошу прощения, все работает, не заметил проклятых фреймов