var
  error : Integer;

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

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

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

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