Вложенный поиск файлов

[kardinal_kdp]

Всем доброе время суток!
Задача такая нужно сделать поиск файла во всех вложенных каталогах например с расширением *.txt
Вот что я нарыл:

//В разделе public пишем строку: 
procedure FindFile(Dir:String); 

//На форму вставляем ListBox1, Button1, Edit1. 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
ListBox1.Clear; // очистка списка файлов 
FindFile(Edit1.Text); // поиск файлов с начальными условиями, заданных в Edit1 
end; 

//Созданная нами вручную процедура поиска:
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; 
ListBox1.Items.Add(SR.Name); 
FindRes:=FindNext(SR); 
end; 
FindClose(SR); 
end;

Поиск работает НО при условии исли буду искать любые файлы с любым расширением(*.*). Стоит только поставить *.txt или что то другое поиск производится только в том каталоге который указан(Если указан с:\ то ищет только в корне диска а вложенные папки не шарит ).
Помогите Please! Заранее благодарен!

[evg_m]

в начале процедуры findFile
добавьте showmessage(dir) и поcмотрите что она получает при входе во вложенные
при входе во вложенный не указан \

[Kotofff]

Ну и в чем проблема ?
Берем процедуру :

uses Windows, SysUtils, Classes, Masks
...
...
procedure FindFiles(StartFolder, Mask: string; List: TStrings;  ScanSubFolders: Boolean = True);
var
  SearchRec: TSearchRec;
  FindResult: Integer;
begin
  List.BeginUpdate;
  try
    StartFolder := IncludeTrailingBackslash(StartFolder);
    FindResult := FindFirst(StartFolder + '*.*', faAnyFile, SearchRec);
    try
      while FindResult = 0 do
        with SearchRec do
        begin
          if (Attr and faDirectory) <> 0 then
          begin
            if ScanSubFolders and (Name <> '.') and (Name <> '..') then
                FindFiles(StartFolder + Name, Mask, List, ScanSubFolders);
          end
          else
          begin
            if MatchesMask(Name, Mask) then List.Add(StartFolder + Name);
          end;
          FindResult := FindNext(SearchRec);
        end;
    finally
      FindClose(SearchRec);
    end;
  finally
    List.EndUpdate;
  end;
end;

И используем ее :

FindFiles('C:\Program Files\', '*.txt', Memo1.Lines, true);