Есть на самом деле более красивый способ - при помощи функций библиотеки shell32.dll.
Объект Folder в этой библиотеке позволяет работать с каталогами - получать информацию, копировать, перемещать объекты между каталогами (подробное описание есть в MSDN -
http://msdn.microsoft.com).
В примере используются переменные:
ShellApplication: Automation 'Microsoft Shell Controls And Automation'.Shell
ShellFolder: Automation 'Microsoft Shell Controls And Automation'.Folder
<div class='CALtop'>C/AL</div><div class='CAL'>
CREATE(ShellApplication);
ShellFolder:=ShellApplication.NameSpace('C:\New Folder');
//Если заданный каталог не существует, то объект ShellFolder не инициализирован
//В таком случае создаём каталог
IF ISCLEAR(ShellFolder) THEN BEGIN
ShellFolder:=ShellApplication.NameSpace('C:\');
ShellFolder.NewFolder('New Folder');
END;</div>