[VaLkA]

Я думаю, что у меня тупой вопрос, но я этого сделать не могу...
Значит осуществляется поиск слов в webbrowser.
Вводим одно слово, нашли его, выделили.
Вводим другое слово его тоже нашли, выделили, и первое слово тоже так и остается выделенным, как сделать, чтобы текст в webbrowser перед каждым поиском обнавлялся


procedure Tform1.SearchAndHighlight(aText: string);
var
tr: IHTMLTxtRange;
begin
if not WebBrowser1.Busy then
begin
tr := ((WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
while tr.findText(aText, 1, 0) do
begin
tr.pasteHTML('<span style="color: red; font-weight: bolder;">' +
tr.htmlText + '</span>');
tr.scrollIntoView(True);
end;
end;
end;


procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if searchedit1.Text<>'' then
form1.SearchAndHighlight(searchedit1.Text);
end;