найти выделенный текст в IWebBrowser

[kolli]

Здравствуйте.Подскажите пожалуйста как в IWebBrowser найти и выделить текст.Но найти не символьный текст как здесь:->
--------------
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate( 'http://decoding.narod.ru' );
end;
procedure SearchAndHighlightText( WB: TWebBrowser; aText: string );
var
i: integer;
begin
for i := 0 to WB.OleObject.Document.All.Length-1 do
begin
if Pos( aText, WB.OleObject.Document.All.Item( i ).InnerText ) <> 0 then
begin
WB.OleObject.Document.All.Item( i ).Style.Color := '#FFFF00';
WB.OleObject.Document.All.Item( i ).ScrollIntoView( true );
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SearchAndHighlightText( WebBrowser1, 'some text...' );
end;
-----------------------
some text... - это искомый текст;
А мне нужно,найти уже выделенный шрифт текста,ну предположим шрифт текста цветом крассный.Если кто знает как,ответьте.По запросам в поисковиках такого ненашел.

//Давайте без дубликатов тем (может случайно создались), zetrix