var
  error : Integer;

begin
  // Попытка создать новый подкаталог в текущей директории
  // Выключение проверки ошибок I/O
  {$IOChecks off}
  MkDir('TempDirectory');

  // Каталог создался успешно?
  error := IOResult;
  if error = 0
  then ShowMessage('Каталог создался успешно')
  else ShowMessageFmt('Создание каталога провалилось с ошибкой %d',[error]);

  // Попытка снова создать каталог - она провалится!
  MkDir('TempDirectory');
  error := IOResult;  // Сохраняем возвращаемый код
  if error = 0
  then ShowMessage('Каталог снова создался успешно')
  else ShowMessageFmt('Повторное создание каталога провалилось с ошибкой %d',[error]);

  // Удаление каталога для очистки
  RmDir('TempDirectory');

  // Включение проверки ошибок I/O
  {$IOChecks on}
end;