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