Перевод с Delphi на C++ Builder

[ClausXXX]

Здравствуйте! Я делаю программу, в которой реализован крнтекстный поиск по html статьям. На форме есть Компоненты WebBrowser, Edit и ListBox (со списком найденных статей). Поиск самих статей сделал, теперь необходимо найти и выделить текст в браузере. Мне удалось отыскать несколько вариантов этого кода для Delphi, но я никак не могу перевести его на C++. Может быть у кого-нибудь есть мысли по этому поводу?[

Вот код:

I Вариант:

{....} 

private 
  procedure SearchAndHighlightText(aText: string); 
     
{....} 

uses mshtml; 

{ .... } 


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; 

// Example: 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SearchAndHighlightText('delphi'); 
end;

------------------------------------------------------

II Вариант:

 procedure TForm1.TextHight(Text:string);
var
i:integer;
Doc, T:Variant;
begin
Doc:=Web.Document;
T:= Doc.body.createTextRange;
i:=0;
if T.FindText(Text)=false then
    begin
    ShowMessage('Извините,здесь мы ничего не нашли);

    exit;
    end;
While Text > '' do
  begin
    T.FindText(Text);
    T.execCommand('BackColor','','yellow');
    T.execCommand('ForeColor','','red');
    T.execCommand('Bold');
    T.ScrollInToView;
    T.collapse(false);
    i:=i+1;
    if T.FindText(Text)=false then
      begin
        ShowMessage(' найдено: '+IntToStr(i)+' упоминаний');
        exit;
      end;
  end;
end;

зависимость uses mhtml

-----------------------------------------------------------
Замечание модератора: Используйте тег [CODE]