[dec]

Hola,

Puedes usar la función "SetFileAttributes()":

Código Delphi [-]
SetFileAttributes('C:\archivo.txt', faReadOnly);