Source position: tiUtils.pas line 212
procedure tiSetFileReadOnly(
AFileName: string;
AReadOnly: Boolean
);