Галактика в вопросах и ответах

О_о собственно сабж ...
в каталоге (GetDirName) лежат куча файлов - надо выбрать все *.xls файлы и поочередно их обработать ..
Не надо было ни когда, в хелпе не нашел ... подскажите функции??
ЗЫ. ни чего умнее чем внешний exe формирующий txt c именами файлов не придумал ... а это как-то убого ..

Пример из Help

var str : string;
str := GetFirstFile('c:\','*.sys');

while str <> strDataIsEmpty do
{
message(str);
str := GetNextFile;
}

сенсей