Jak otrzymać listę katalogów w Delphi6?

Jeśli ktoś może pomóc to będę wdzięczny. Jak uzyskać listę katalogów a nie plików w Delphi6?
Pozdrawiam, Jazio

w dziale gotowce masz wyszukiwanie, tylko tam gzdie dodaje sie nowe pozycje wstaw if'a:
if (plik.Attr and faDirectory >0) then ....--Delphi 6
Pozdrowienia{hello} ,
Moderator Imperior