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:
38:
39:
40:
41:
42:

procedure TForm1.suchejpgs(s:string; var list:Tstringlist);
var  Found,J     : integer;
     SearchRec : TSearchRec;
     ordnerliste:tstringlist;
     endung:string;
begin

 J:=-1;
 includetrailingpathdelimiter(s);

 ordnerliste:=tstringlist.create;
 ordnerliste.Add(s);
  while (J<ordnerliste.Count-1) do
  begin
  inc(J);
  s:=includetrailingpathdelimiter(ordnerliste[J]);

  Found := FindFirst(s+'*.*', 255, SearchRec);
      while Found = 0 do
      begin
          //Unterordner zusmamenstellen
          if (extractfileext(searchrec.Name)='')   then
          ordnerliste.add(s+SearchRec.Name);

          //Jpgs rausfiltern
          endung:=lowercase(extractfileext(searchrec.name));
            if (endung='.jpg')  then
            list.Add(s+searchrec.name);

      Found := FindNext(SearchRec);
      end;
  end;



 if j=0 then J:=1;


 FindClose(SearchRec);

 ordnerliste.free;
end;