Пример
If CreateDir( 'C:\NEWDIR')
   then MessageDlg('Каталог создан', mtInformation, [mbOk],0)
   else MessageDlg('Невозможно создать каталог', mtInformation, [mbOk], 0);