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

var 
  Found: Integer;
  SearchRec: TSearchRec;
begin
  Found := FindFirst(Path+'\*.*', faDirectory, SearchRec);
  while Found = 0 do
    begin
      if ExtractFileExt(SearchRec.Name) = '.XXX' then
        begin  
          //MACHE WAS MIT DER DATEI
        end;
      Found := FindNext(SearchRec);  
    end;
  FindClose(SearchRec);
end;					

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

var Found: Integer; SearchRec: TSearchRec;
begin
  Found := FindFirst(Path+'\*.xxx', faDirectory, SearchRec);
  if SearchRec <> 0 then  
    try
      while Found = 0 do
      begin
        //MACHE WAS MIT DER DATEI
        Found := FindNext(SearchRec);  
      end;
    finally
      FindClose(SearchRec);
    end;
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:
25:
26:
27:
28:
29:

procedure TForm1.FindDir(Path, Datei: String);
var
  Found,i,j: Integer;
  SearchRec: TSearchRec;
  DirList,FileList: TStringList;
begin
  DirList := TStringList.Create;
  FileList := TStringList.Create;
  Found := FindFirst(Path+'\*.*', faDirectory, SearchRec);
    while Found = 0 do
  begin
    if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
      begin
        DirList.Add(Path+'\'+SearchRec.Name);
        if ExtractFileExt(SearchRec.Name) = Datei then
          FileList.Add(Path+'\'+SearchRec.Name);
      end;
    Found := FindNext(SearchRec);
  end;
  FindClose(SearchRec);

  if DirList.Count <> 0 then
    for i := 0 to DirList.Count-1 do FindDir(DirList.Strings[i],Datei);

  //MACHE WAS MIT DEN DATEN IN DER FILELIST

  DirList.Free;
  FileList.Free;
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.SucheDir1(search: String; pfad: String);
...
if ((sr.Attr and faDirectory) <> 0) then
  SucheDir1(search, pfad + '\' + sr.name)
else
...
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.SucheDir1(search: String; pfad: String);
...
if ((sr.Attr and faDirectory) <> 0) and (CheckBox1.Checked) then
  SucheDir1(search, pfad + '\' + sr.name)
else
...
end;