Директива компілятора Delphi $IOChecks – коли включено, помилка операції введення-виведення викликає виняток

Директива $IOChecks компілятора Delphi коли включено, помилка операції введення-виведення викликає виняток.

Директива компілятора $IOChecks: Спроба створити директорію двічі

var
  error : Integer;

begin
  // Спроба створити новий підкаталог у поточному каталозі
  // Вимкнення перевірки помилок введення/виводу
  {$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');

  // Увімкнення перевірки помилок введення/виводу
  {$IOChecks on}
end;