Список имён файлов в папке

[digitalis]

Давно не задавал чайницких вопросов. Исправляю ситуацию.
Можно ли не слишком мозголомно получить в виде массива строк имена всех файлов с данным расширением в данной папке? Искал в сети - что-то не находится.
Кащенковитый вариант есть: открыть в Проводнике, PrtScr, далее FineReader. А если менее безумно?
-------------------
"Список" в названии не следует понимать буквально, я знаю разницу между списком и массивом. Ну вы меня понимаете...

[macomics]

if FindFirst('*.ext', faAnyFile, sr) = 0 then repeat
  // Сохраняем имена в массив/список
  New(sr_copy);
  sr_copy^ := sr; // Копирование необходимой информации из sr в динамически выделенную структуру. Для простоты понимания использовал присвоение.
  fList.Add(Pointer(sr_copy)); // TList
until FindNext(sr) <> 0;
FindClose(sr);

[digitalis]

Я так и подозревал, но сомневался. Сеньк. Ещё надо выбор заданной папки.
__________________
Вроде допёр: путь можно указать в FileMask. Isn't?

[macomics]

if FindFirst('C:\Dir0\SubDir1\*.ext', faAnyFile, sr) = 0 then repeat ...

SetCurrentDirectory('C:\Dir0\SubDir1');

[digitalis]

Всё понял. Ещё раз мерси.

[FaTaL]

А может лучше использовать TDirectory.GetFiles

[digitalis]

Дык вроде как в 7-ке его нет. А мы - по старинке, по рабоче-крестьянски...