This function fills Files string list with names of files found with FindFirst/FindNext functions (See details on Path/Atrr here).
function BuildFileList(Path: string; Attr: LongInt; Files: TStrings; Options: TFileListOptions = []): Boolean;
ImagingUtility (at line 149)