https://www.freepascal.org/docs-html/rtl/sysutils/findfirst.html 1) add to the list of attribs the value faAnyFile. 2) correct the example: call FindClose only inside block "if FindFirst(..)=0" -- Regards, Alexey