Осуществить поиск

[necky]

var
searchResult : TSearchRec;
f:integer;
begin
memo1.Clear;
if (FindFirst('*.html' , faAnyFile, searchResult) = 0 ) or (FindFirst('*.htm' , faAnyFile, searchResult) = 0 )then
begin
repeat
memo1.Lines.Add (String (''+searchResult.Name));
until FindNext(searchResult) <> 0;
FindClose(searchResult);
f:=Form1.Memo1.Lines.Count;
edit1.text:=IntToStr (f);


Как осуществить поиск по всем каталогам находящимся в папке с ехе-шкой? Но лучше всего было бы, еслиб подсказали как выбрать каталог и осуществить подобный поиск.

[vitalik007]

var
s1,s2 : TSearchRec;
f:integer;
begin
memo1.Clear;
if (findfirst(extractfileDir(applicati on.exename),faDirectory,s1) = 0) then
repeat
if (FindFirst(s1.name+'/*.html' , faAnyFile, s2) = 0 ) or (FindFirst(s1.name+'/*.htm' , faAnyFile, s2) = 0 )then
repeat
memo1.Lines.Add (s2.Name);
until FindNext(s2) <> 0;
FindClose(searchResult);
until findnext(s1)<>0
findclose(s1);
f:=Form1.Memo1.Lines.Count;
edit1.text:=IntToStr (f);


P.S я не компилировал будет наверное много ошибок.
у меня комп только завтра будет исли надо исходник выложу завтра