var
  error : Integer;

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

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

  // Удаление каталога для очистки
  RmDir('TempDirectory');
  {$IOChecks on}
end;