Создание каталога

uses

   Dialogs;

 begin

   {$I-}
   MkDir('c:windows');
   {$I+}
   if
 IOResult <> 0 then

     MessageDlg('Cannot Create Directory/Verzeichnis kann nicht angelegt werden!',
       mtWarning, [mbOK], 0)
   else

     MessageDlg('Directory Created/Neues Verzeichnis angelegt.', mtInformation, [mbOK], 0);
 end
;

Другое по теме:

• Удаление каталога со всем содержимым
• Копирование файлов вместе с каталогами
• Определение размера каталога