1:

SearchRec.Attr AND faDirectory > 0					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure findAllFilesAndDoSomething(_RootDir, _FileMask: String);
var
  SearchRec: TSearchRec;
begin
  // In FindFirst/FindNext alles suchen, was es gibt
  ....
  // Ist es ein Verzeichnis?
  if SearchRec.Attr and faDirectory > 0 then
    findAllFilesAndDoSomething(_RootDir + SearchRec.name, _FileMask) // Rekursion
  // Oder ist es eine Datei und passt zur Suchmaske?
  else if passtZurMaske(SearchRec.Name, _FileMask) then 
    doSomething(SearchRec.Name);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure Tmp3_Explorer.FindFiles(sPfad: String);
var Rec:TSearchRec;
begin
   //Die beiden ersten gefundenen Einträge ignorieren
   FindFirst(sPfad+'\*.*', faAnyFile,Rec);
   FindNext(Rec); 

   if FindNext(Rec)=0 then
   begin
     repeat
       //frmzentral.mp3.Add(sPfad+'\'+Rec.Name);
       //wenn der Eintrag ein Verzeichnis ist, ebenfalls durchgehen
       if (Rec.Attr and faDirectory = faDirectory) then begin
         FindFiles(sPfad+'\'+Rec.Name);
       end
       else begin
        if ExtractFileExt(Rec.Name) = '.mp3' then begin
          ShowMessage(sPfad+'\'+Rec.Name);
        end;
       end;
     until FindNext(Rec)<>0;
   end;
   Findclose(Rec);
end;