1с получить список файлов в папке

Ответ от Croacker[гуру]
var
searchResult : TSearchRec;
begin
if FindFirst('*.txt', faAnyFile, searchResult) = 0 then
begin
repeat
ShowMessage('searchResult.Name);
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;