[MoS]

Доброго времени суток. Прошу извинить если такая тема уже есть на форуме, но в этой теме не нужно рассказывать мне как реализовать поиск файлов, мне хотелось бы узнать что не верно в коде поиска!

Код:

procedure TForm1.FindFile(Dir: String);
Var SR:TSearchRec; 
    FindRes:Integer; 
begin 
FindRes:=FindFirst(Dir+'*.*',faAnyFile,SR); 
While FindRes=0 do
begin
if ((SR.Attr and faDirectory)=faDirectory) and ((SR.Name='.')or(SR.Name='..')) then
begin
FindRes:=FindNext(SR);
Continue;
end;
if ((SR.Attr and faDirectory)=faDirectory) then // если найден каталог, то
begin
FindFile(Dir+SR.Name+''); // входим в процедуру поиска с параметрами текущего каталога + каталог, что мы нашли
FindRes:=FindNext(SR); // после осмотра вложенного каталога мы продолжаем поиск в этом каталоге
Continue; // продолжить цикл
end;
FindRes:=FindNext(SR);
ListBox1.Items.Add(SR.Name);
end;
FindClose(SR);
end;

Почему-то результат поиска не предсказуем, все файлы которые находятся в папке Dir находит, а вот в подпапки папки Dir поиск не ведется, в чем может быть причина?
Работаю в Delphi 7!