1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

Procedure FindFiles (aPath, aFindMask: String; aWithSub: Boolean; aResult: tStrings);
Var
FindRec: tSearchRec;
Begin
  //aPath Gibt an in welchem Verzeichnis nach Datein gesucht werden soll
  //aFindMask Gibt an nach welchen Dateien gesucht werden soll. Z. B. nach allen Textdateien ('*.txt')
  //aResult Gibt die Stringliste an in der die Suchergebnisse eingetragen werden. Das könnte z. B. die Eigenschaft Items einer tListbox sein.

  // Wenn am Ende der Pfadangabe noch kein \ steht, dieses hinzufügen
  If aPath[Length (aPath)] <> '\' Then
    aPath := aPath + '\';

  // Im aktuellen Verzeichnis nach der Datei suchen
  If FindFirst (aPath + aFindMask, faAnyFile, FindRec) = 0 Then
    Repeat
      // ...Ergebnis in die Stringlist einfügen
      If (FindRec.Name <> '.') and (FindRec.Name <> '..') Then
      begin
      If aResult = Unterverzeichnisse Then aResult.Add(FindRec.Name)
      else aResult.Add(apath + FindRec.Name);
      end;

    Until FindNext (FindRec) <> 0;

    If Not aWithSub Then Exit;

    // In Unterverzeichnissen weiter suchen
    If FindFirst (aPath + '*.*', faAnyFile, FindRec) = 0 Then
    Repeat
      If (FindRec.Name <> '.') and (FindRec.Name <> '..') Then
      // Feststellen, ob es sich um ein Verzeichnis handelt
      // Funktion erneut aufrufen, um Verzeichnis zu durchsuchen (Rekursion)
      If Boolean (FindRec.Attr and faDirectory) Then FindFiles(aPath + FindRec.Name, aFindMask, aWithSub, aResult);
    Until FindNext (FindRec) <> 0;

  FindClose (FindRec);
end;                    

1:

FindFiles('C:', '*', False, sl); //es werden alle datein (Pfad und dateiname) in C: ohne untervrezeichnisse in sl geladen