Чтение файлов в директории с помощью Automation

[kudrenko]

Ребят, подскажите, пожалуйста, кто сталкивался подобной ситуацией.
Необходимо выполнить вывод всех файлов (их название), которые указаны в соответствующей директории, используя Automation.
Собственно я создал указанные ниже две переменные:
FileSystem Automation 'Microsoft Scripting Runtime'.FileSystemObject
Folder Automation 'Microsoft Scripting Runtime'.Folder

CREATE(FileSystem);
IF NOT FileSystem.FolderExists("Path") THEN
  ERROR(‘Нет такой директории’);

Folder := FileSystem.GetFolder(“Path”);

А вот как дальше сделать перебор, возможно с помощь цикла WHILE, к сожалению не могу понять. Помогите плиз…