Рекурсивный Поиск файлов

procedure TForm1.FindFile(Dir: string);
var
  SR: TSearchRec;
  FindRes: Integer;
begin
  FindRes := FindFirst(Dir + '*.exe', 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
      ShowMessage(Dir + SR.Name);
      FindFile(Dir + SR.Name );
      FindRes := FindNext(SR);
      Continue;
    end;
 
    ListBox1.Items.Add(SR.Name);
    FindRes := FindNext(SR);
  end;
  FindClose(SR);
end;;

procedure FindFiles(const Path : String);
var
  SR  : TSearchRec;
  Ext : String;
begin
  if FindFirst(ExpandFileName(Path + '\*.*'), faAnyFile, SR) = 0 then
  try
    repeat
      if ((SR.Attr and faDirectory) <> 0) and (SR.Name[1] <> '.') then
        FindFiles(ExpandFileName(Path + '\' + SR.Name))
      else if (SR.Name[1] <> '.') then
        ListBox1.Items.Add(SR.Name);
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  sr:TSearchRec;
begin
   lst2.Clear;
   dir:='c:\program files\';
   if FindFirst(dir+'Новая папка', faDirectory, sr)=0 then
  repeat
     Application.ProcessMessages;
     If (Sr.Attr and faDirectory) > 0 then
     begin
         dir:=dir+sr.Name+'\\';
       FindFirst(dir+'новая*', faDirectory,sr);
       lst2.Items.Add(sr.Name);
     end;
  until (FindNext(Sr) > 0);
end;