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:

procedure TForm1.OrdnerSuchen(OrdnerName, SuchPfad: String);
var
 sr:TSearchRec;
begin
  if (SuchPfad<>'') and (SuchPfad[Length(SuchPfad)]<>'\') then
    SuchPfad:=SuchPfad+'\';
  if (FindFirst(SuchPfad + '*.*', faDirectory, sr)=0) then
  begin
    repeat
      begin
      if (sr.Name<>'.') and (sr.Name<>'..') and (faDirectory = (sr.attr and faDirectory)) then
      begin
        list_resluts('dictionary.bmp', sr.Name, SuchPfad);
        Label16.Caption := IntToStr(zaehler + 1);
      end;
    until FindNext(sr)<>0;
    FindClose(sr);
  end;
  //Unterverzeichniss durchsuchen
    if (FindFirst(SuchPfad + '\' + sr.Name +'*.*', faDirectory, sr)=0) then
    begin
      repeat
      begin
        if (sr.Name<>'.') and (sr.Name<>'..') then
          OrdnerSuchen(OrdnerName, SuchPfad + '\' + sr.Name);
      end
      until FindNext(sr)<>0;
       FindClose(sr);
  end;
end;