Вот даже код составления списка файлов, правда только в одной папке.
Код:
Var SearchRec:TSearchRec;
begin
ListBox1.Clear;
If FindFirst(Edit1.Text+'*', faAnyFile, SearchRec)=0 then
repeat
ListBox1.Items.Add(SearchRec.name);
{SearchRec.name - имя файла
ExpandFileName(SearchRec.name) - имя файла с полным путем}
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;