جستجو كلمه در WebBrowser ورنگ کردن ان

[yosefyosef]

با سلام به دوستان عزیز
جهت انجام جستجو در WebBrowser ورنگ کردن ان در انترنت زياد جستجو كردم واین سورس پیدا کردم ولی خوب کار نمی کرد لطفا راهنمایی کنید اگر کسی در برنامه استفاده کرد بصورت فایل به من بدهد متشکر می شوم
سورس
private
procedure SearchAndHighlightText(aText: string);

implementation

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;

[Felony]

کد مشکلی نداره ، نمونه ضمیمه شده رو ببینید .