Чтение имён файлов в папке

[soonner]

Вот возник вопрос в следующем, есть допустим папка А, в этой папке А лежат файлы, и постоянно их становится больше. Все файлы *.ТХТ. Как сделать так, чтобы при запуске программа проверяла папку и выводила имена всех файлов, допустим, в разные Эдиты.

[ManU]

Используй функции

FindFirst(const Path: string; Attr: Integer;
  var  F: TSearchRec): Integer;

и

FindNext(var F: TSearchRec): Integer;