Как получить EInOutError.ErrorCode, равный 107.

[bammy]

Никак не могу получить ошибку 107.
Задание звучит так:
try
. . .
except
on E:EInOutError do
case E.ErrorCode of
2:MessageDlg(‘Файл не найден!’, mtWarning, [mbOk], 0);
3:MessageDlg(‘Путь не найден!’, mtWarning, [mbOk], 0);
32:MessageDlg(‘Ошибка совместного доступа!’, mtWarning,
[mbOk], 0);
107:MessageDlg(‘Файл уже открыт!’, mtWarning, [mbOk], 0);
end;
end;
Смоделируйте данные виды ошибок ввода/вывода.

Ошибку 2 получить проще лёхкого, нужно всего лишь при открытии файла на чтение ошибиться в названии файла.
Ошибку 3 также получить лехко - нужно ошибиться в пути при открытии файла на чтение.
Ошибку 32 также несложно получить - нужно открыть файл на чтение и на запись.
А вот как получить ошибку 107, какие манипуляции нужно проделать с текстовым или другим файлом, чтобы 107 все-таки появилась на свет??
p.s. Ошибки после 100-й я получал(103 и 104). Проект на VCL.
Заранее премного благодарен откликнувшимся добрым русским людям.
--
C уважением, Андрей.

[mihali4]

Для "особо одаренных" - еще раз :
Читаем правила раздела !
Там по-русски сказано :

СПЕЦИАЛЬНО ДЛЯ НОВИЧКОВ В ПРОГРАММИРОВАНИИ, СТУДЕНТОВ И УЧАЩИХСЯ!
Как бы вы ни назвали свою тему, как бы вы ни ухищрялись, если в теме будет ваша учебная задачка, которую вам ну позарез нужно решить - такие темы или вопросы будут моментально удаляться, а нарушитель получать нарушение №1.
Халявные темы будут моментально переправлены в раздел "Фриланс", так что готовьте денежку.
Ну, а в лучшем случае - будут перемещены в раздел "Помощь студентам", который для вас и создан.
Так что не стоит испытывать терпение модеров, а лучше сразу писать подобные темы в этот раздел.