Hasta donde recuerdo vos tenías el bitmap en un TImage...
Código:
begin
Image1.Picture.Bitmap.SaveToFile('c:\windows\fondo.bmp');
FileSetAttr('c:\windows\fondo.bmp', faReadOnly);
end;
Los errores que te dio el código anterior es porque no estabas utilizando la unit SysUtils
Codigo Anterior:
Código:
var
Attrs : Word;
begin
Attrs := FileGetAttr('MyFile.sys');
if Attrs and faHidden <> 0 then
FileSetAttr('MyFile.sys', Attrs – faReadOnly);
end;