Hola,
Una forma podría ser utilizar la función "FileSetReadOnly". Otra puede ser utilizar la función "SetFileAttributes".
Código Delphi
[-]
FileSetReadOnly('C:\archivo.txt', true);
Código Delphi
[-]
var
atributos: Cardinal;
begin
atributos := GetFileAttributes(PChar('C:\archivo.txt'));
SetFileAttributes(PChar('C:\archivo.txt'), atributos + faReadOnly);
end;