TSearchRec i katalogi

Jak za pomocą TSearchRec odnaleźć tylko katalogi w danym folderze?

Próbóję:

FindFirst('.', faDirectory, SearchRec);
(...)
while findNext(searchRec) = 0 do begin
findNext(searchrec);
(...)
end;

FindClose(searchRec);

ale odnajduje mi i pliki i katalogi.
A jak zrobić, żeby odnalazł same katalogi?

(tylko błagam, nie piszcie mi o directoryListBox ;)))

if (SearchRec and faDirectory) = faDirectory ... - jakoś tak