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

var
  f : TSearchRec;
  s : Integer;
begin
  s := FindFirst('C:\Fotos\*.*', faDirectory, f);
  try
    while s = 0 do
    begin
       if f.Attr and faDirectory = faDirectory then
         ListBox1.Items.Add(f.Name);

      s := FindNext(f);
    end;
  finally
    FindClose(f);
  end;
end;