Пример использует информационное поле (label) и кнопку на форме. Когда пользователь кликает по кнопке, то все поддиректории, содержащиеся в пути создаются (если они ещё не созданы). Результат записывается в текстовое поле:
usesFileCtrl; procedure
TForm1.Button1Click(Sender: TObject); var
Dir: string
; begin
Dir := 'C:APPSSALESLOCAL'; ForceDirectories(Dir); if
DirectoryExists(Dir) then
Label1.Caption := Dir + ' was created' end
;