Du must die Share's per OR verknüpfen...
Aus System.Sysutils
Delphi-Quellcode:
fmOpenRead = $0000;
fmOpenWrite = $0001;
fmOpenReadWrite = $0002;
fmExclusive = $0004; // when used with FileCreate, atomically creates the file only if it doesn't exist, fails otherwise
fmShareCompat = $0000 platform; // DOS compatibility mode is not portable
fmShareExclusive = $0010;
fmShareDenyWrite = $0020;
fmShareDenyRead = $0030 platform; // write-only not supported on all platforms
fmShareDenyNone = $0040;
Also
Filemode := $40;
bzw.
Filemode := fmOpenRead or fmShareDenyNone;