procedure TForm1.Button1Click(Sender: TObject);
begin
FileSetAttr('c:\MonFichier.txt',faReadonly);
end;