Как создать все поддиректории за один проход

Пример использует информационное поле (label) и кнопку на форме. Когда пользователь кликает по кнопке, то все поддиректории, содержащиеся в пути создаются (если они ещё не созданы). Результат записывается в текстовое поле:

uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'C:\APPS\SALES\LOCAL';
  ForceDirectories(Dir);
  if DirectoryExists(Dir) then
    Label1.Caption := Dir + ' was created'
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 576 • TDictionary Custom Sort 6 595 • Fast Watermark Sources 6 364 • 3D Designer 9 314 • Sik Screen Capture 6 700 • Patch Maker 7 076 • Айболит (remote control) 7 082 • ListBox Drag & Drop 5 951 • Доска для игры Реверси 97 481 • Графические эффекты 7 286 • Рисование по маске 6 581 • Перетаскивание изображений 5 451 • Canvas Drawing 5 820 • Рисование Луны 5 532 • Поворот изображения 5 055 • Рисование стержней 3 616 • Paint on Shape 2 859 • Генератор кроссвордов 3 742 • Головоломка Paletto 3 016 • Теорема Монжа об окружностях 3 824 • Пазл Numbrix 2 515 • Заборы и коммивояжеры 3 215 • Игра HIP 2 180 • Игра Go (Го) 2 111 • Симулятор лифта 2 494 • Программа укладки плитки 2 145 • Генератор лабиринта 2 627 • Проверка числового ввода 2 301 • HEX View 2 631 • Физический маятник 2 249