Jak wyszukać slowo w TWEBBROWSER

Witam... Szukam sposobu na wyszukanie słowa w komponencie TWEBBROWSER oraz na skopiowanie do schowka słowa następującego po wyszukanym. Doszedłem do znalezienia sposobu na podświetlenie szukanego słowa. Proszę o pomoc :)
procedure TForm1.WBLocateHighlight(WB: TWebBrowser; Text: string);
const
prefix = '';
suffix = '';
var
tr: IHTMLTxtRange;
begin
if Assigned(WB.Document) then
begin
tr := ((wb.Document AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange;
while tr.findText(Text, 1, 0) do

 begin
   tr.pasteHTML(prefix + tr.htmlText) ;
   tr.scrollIntoView(True) ;

   

 end;

end;
end;

jest opisane to na swiss delphi center poczukoj

Może ktoś jednak udzieli pełnej szybkiej odpowiedzi, proszę :)

Tak myślę, że może najpierw pobrać źródło strony do TStrings, a potem:

Var Code: TStrings;
{...}
Procedure Szukaj(Sl: String);
Var I, P: Integer;
Begin
 For I := 0 to Code.Lines.Count Do
  if Pos(Sl, Code.Lines[I]) > 0 Then ShowMessage('Znaleziono !');
End;