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

procedure FileList(const sPath, sExt: String; bRecurse: Boolean; List: TStrings); 
var 
  f, f2: TSearchRec; 
begin 
  if (FindFirst(sPath + '*.*', faAnyFile, f) = 0) and (Assigned(List)) then 
  begin 
    if FindFirst(sPath + sExt, faAnyFile, f2) = 0 then
    begin 
       List.add(sPath + f2.Name); 
       while (FindNext(f2) = 0) do 
         List.Add(sPath + f2.Name); 
       FindClose(f2);
    end; 

    while FindNext(f) = 0 do
     if ((F.Attr and faDirectory) = faDirectory) and (f.name <>'.') and (f.name <> '..') and 
       (bRecurse) then 
         FileList(sPath + f.Name+'\', sExt, bRecurse, List);
  end; 
  FindClose(f); 
end;                    

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  FileList('C:\', '*.txt', True, Memo1.Lines);
end;                    

1:

  FileList('C:\', '*.sav', True, Memo1.Lines);                    

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:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

procedure scan(const RootPath: string; Extension: string; List: TStrings);
var
  CurrentPath : string;
  ds          : TSearchRec;
  res         : integer;
begin
  // what's the current folder?
  CurrentPath := GetCurrentDir;

  // remove a finishing backslash, if there is any
  while(CurrentPath[length(CurrentPath)] = '\') do
    SetLength(CurrentPath,length(CurrentPath) - 1);
  // Delphi 5 has no "RemoveTrailingBackslash"
  // function or something else like it; or maybe
  // I just don't know ... hm ...


  // get all folders
  res         := FindFirst(CurrentPath + '\*.*',faAnyFile,ds);
  while(res = 0) do
  begin
    // name MUST NOT be "." and "..", ...
    if(ds.Name <> '.') and
      (ds.Name <> '..') and
    // and it has to be a directory
      (ds.Attr and faDirectory <> 0) then
    begin
    // then jump into, & scan again
      SetCurrentDir(ds.Name);
      Scan(RootPath,Extension,List);
    end;

    // is there another folder?
    res := FindNext(ds);
  end;
  FindClose(ds);

  // now, get the file(s), I'm interested in
  res         := FindFirst(CurrentPath + '\' + Extension,
    faAnyFile,ds);
  while(res = 0) do
  begin
    // it's not a folder, ...
    if(ds.Attr and faDirectory = 0) then
    // ... add it to my list
      List.Add(Format('%s\%s',[CurrentPath,ds.Name]));

    // go find the next file
    res := FindNext(ds);
  end;
  FindClose(ds);

  // 1 level (= folder) up
  if(CurrentPath <> RootPath) then SetCurrentDir('..');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetCurrentDir('c:\');
  Scan('c:\','g*.dll',ListBox1.Items);
end;