TFileStream.Create opens a file with read-only access.
Source position: classesh.inc line 77
const fmOpenRead = ;