Как отличить файл от каталога?

Учет особенностей поиска каталогов с помощью FindFirst и FindNext.

Процедура FindFirst('*.*',Directory,Search) выдает не только подкаталоги, но и все файлы в них - это глюк MS-DOS, а именно, функции 4E прерывания 21.

Hужно после каждого использования FindFirst/FindNext проверять, каталог ли ты нашел:

if Search.Attr and (Directory <> 0) then begin [...] end;