Поиск данных в HTML через Delphi

[L3zh1Y]

Здравствуйте! Помогите организовать поиск по HTML-страницам через делфи. Он должен вывести все темы в listbox6 в котором содержится введенное слово. Поиск html осуществляется по нажатию Button2

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    ts: String;
    fs: TSearchRec;
begin
ListBox6.Items.Clear;
 for i:=0 to listbox5.Items.Count -1 do
     begin
       ListBox6.Visible:=true;
        if pos(Edit1.Text,ListBox5.Items[i])>0  then
       ListBox6.Items.Add(ListBox5.Items[i]);
     end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
    ts: String;
    fs: TSearchRec;
begin
if FindFirst(getcurrentdir+'\files\*.htm',faAnyFile,fs) = 0 then
  begin
  repeat
  ts := fs.Name;
  WebBrowser1.Navigate(GetCurrentDir+'/Files/'+ts);


while Form1.WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
  Application.ProcessMessages;

for i := 0 to Form1.WebBrowser1.OleObject.Document.All.Length - 1 do
  begin
  if AnsiPos(AnsiLowerCase(Edit1.Text), AnsiLowerCase(Form1.WebBrowser1.OleObject.Document.All.Item(i).InnerText)) <> 0 then
    begin
    ListBox6.Items.Add(ts);
    Break;
    end;
  end;
until FindNext(fs) <> 0;
FindClose(fs);
end;
end;

procedure TForm1.ListBox6Click(Sender: TObject);
begin
 case (ListBox6.ItemIndex) of
       0 :WebBrowser1.Navigate(GetCurrentDir+'/Files/matplat.htm');
       1 :WebBrowser1.Navigate(GetCurrentDir+'/Files/matplatOsnKomp.htm');
       2 :WebBrowser1.Navigate(GetCurrentDir+'/Files/sysklas.htm');
       3 :WebBrowser1.Navigate(GetCurrentDir+'/Files/BlokPit.htm');
       4 :WebBrowser1.Navigate(GetCurrentDir+'/Files/BP.htm');
       5 :WebBrowser1.Navigate(GetCurrentDir+'/Files/vkart.htm');
       6 :WebBrowser1.Navigate(GetCurrentDir+'/Files/grafproc.htm');
       7 :WebBrowser1.Navigate(GetCurrentDir+'/Files/vdk.htm');
       8 :WebBrowser1.Navigate(GetCurrentDir+'/Files/vdp.htm');
       9 :WebBrowser1.Navigate(GetCurrentDir+'/Files/cap.htm');
       10 :WebBrowser1.Navigate(GetCurrentDir+'/Files/vpzu.htm');
       11 :WebBrowser1.Navigate(GetCurrentDir+'/Files/so.htm');
       12 :WebBrowser1.Navigate(GetCurrentDir+'/Files/interfaceV.htm');
       13 :WebBrowser1.Navigate(GetCurrentDir+'/Files/vmem.htm');
       14 :WebBrowser1.Navigate(GetCurrentDir+'/Files/splat.htm');
       15 :WebBrowser1.Navigate(GetCurrentDir+'/Files/setpar.htm');
       16 :WebBrowser1.Navigate(GetCurrentDir+'/Files/funsetplat.htm');
       17 :WebBrowser1.Navigate(GetCurrentDir+'/Files/klasset.htm');
end; end;



end.

Он у меня просто пролистывает все страницы находящиеся в базе

Очень прошу помощи, скоро сдавать программу!