webbrowser et Find

J'ai utilisé ce code pour chercher un mot dans le WebBrowser :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 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;
Mais :
j'ai un ListBox contenant les pages à naviguer :
Exemple :
c:\pages\page1.htm
c:\pages\page2.htm
c:\pages\page3.html
...

Donc ce que je veux que le WebBrowser puisse naviguer toutes ces pages ( trouvant dans le ListBox ) une par une et faire la recherche ( Find ) du Mot , s'il le trouve il affiche le nom de page contenant le mot .

Ce que j'ai fait :

Citation:

procedure TForm1.timer1Timer(Sender: TObject);
var
i:integer;
begin
For i:=0 to listbox1.items.cout-1 do
begin
WebBrowser1.Navigate(ListBox1.Items.Strings[i]);
SearchAndHighlightText(Edit1.text);
end;
end;

mais à l'execution le Webbrowser1 navigue seulement la 1ere et dernière page , et il ignore les autres pages.

Merçi