Поиск по HTML через Delphi

[L3zh1Y]

Объясните пожалуйста данную процедуру, я ее настроил под свою программу, но не пойму некоторые моменты. Дайте пожалуйста подробное описание, заранее благодарен=)

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(Edit2.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;

[L3zh1Y]

Что, никто не может помочь? Просто мы в колледже делфи толком не учили, а уже требуют программу, спрашивать в коде будут по полной. Помогите пожалуйста! Уже скоро защита!!! Эта процедура поиска в htm документах