Поиск подстроки на странице в CppWebBrowser

int k=CppWebBrowser1->OleObject.OlePropertyGet("Document").OlePropertyGet("All").OlePropertyGet("Length");
   for(int i=0;i<=k-1;i++)
   {
      if(strstr(VarToStr(Form1->CppWebBrowser1->OleObject.OlePropertyGet("Document").OlePropertyGet("All").OleFunction("Item", i).OlePropertyGet("InnerText")).c_str(),"ñêàçàòü") != 0)
      {
         Form1->CppWebBrowser1->OleObject.OlePropertyGet("Document").OlePropertyGet("All").OleFunction("Item", i).OlePropertyGet("Style").OlePropertySet("Color","#FFFF00");
         Form1->CppWebBrowser1->OleObject.OlePropertyGet("Document").OlePropertyGet("All").OleFunction("Item", i).OleFunction("ScrollIntoView",false);
      }
   }

//in hpp
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "SHDocVw_OCX.h"
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TPanel *Panel1;
    TButton *Button1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
    TCppWebBrowser *CppWebBrowser;
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;

//in cpp
...
#include "mshtmhst.h"
#include "mshtmcid.h"
#include "mshtml.h"
...
#define HTMLID_FIND 1
...
const GUID CGID_IWebBrowser =
    {0xed016940, 0xbd5b, 0x11cf,
    {0xba, 0x4e, 0x0, 0xc0, 0x4f, 0xd7, 0x08, 0x16}} ;
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    LPDISPATCH lpDispatch = CppWebBrowser->ControlInterface->get_Document();
    if(lpDispatch)
    {
        IOleCommandTarget* pcmd=NULL;
        if( SUCCEEDED(lpDispatch->QueryInterface(IID_IOleCommandTarget,(void**)&pcmd) ) )
        {
            pcmd->Exec(&CGID_IWebBrowser, HTMLID_FIND, 0, NULL, NULL);
            pcmd->Release();
        }
        lpDispatch->Release();
    }
}