Модуль: System

Описание
Процедура создает подкаталог по заданному пути Path. Путь не должен содержать имя файла.

Пример
Приведенный пример проверяет, существует ли в каталоге 'C:\DRV\DOS\' подкаталог 'CDROM'. Если нет, то указанный каталог создается. Каталог 'C:\DRV\DOS\' уже должен существовать на диске, иначе возникнет ошибка ввода/вывода.
var
   S: string;
begin
{$I-}
   S:= 'C:\DRV\DOS\CDROM';
   if DirectoryExists(S) = false then MkDir(S);
   if IOResult<>0 then

   MessageDlg('Невозможно создать каталог', mtWarning, [mbOk], 0);
{$I+}
end;

Для создания сразу нескольких вложенных каталогов используйте процедуру ForceDirectories