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

procedure 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
       if (Rec.Attr and faDirectory = faDirectory) then begin
         FindFiles(sPfad+'\'+Rec.Name);
       end
       else begin
        if ExtractFileExt(Rec.Name) = '*.txt' then begin
          ShowMessage(sPfad+'\'+Rec.Name);
        end;
       end;
     until FindNext(Rec)<>0;
   end;
   Findclose(Rec);
end;					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetFilesInDirectory('C:\', '*found*.*', Listbox1.Items, False, True);
end;