Delphi XE3 выдает EFOpenError при указании "FILE_SHARE_READ или FILE_SHARE_WRITE" в конструкторе TFileStream

Question

Следующее утверждение отлично работает в Delphi XE (Windows 7 x64), но выдает "Исключительный класс EFOpenError with message..." в Delphi XE3 (Windows 7 x64). Это похоже на ошибку. Если так, есть ли обходной путь?

      TFileStream.Create(
        'C:\Test.txt'
        , fmOpenRead,
//        FILE_SHARE_READ);
//        FILE_SHARE_WRITE);
        FILE_SHARE_READ or FILE_SHARE_WRITE);

Answer 1

Использование fmShareDenyNone постоянный вместо FILE_SHARE_READ or FILE_SHARE_WRITE:

 TFileStream.Create(
    'C:\Test.txt', fmOpenRead or fmShareDenyNone);

это не ошибка. Подробности смотрите в документации.