Cambiar atributos a todo un directorio

[Walterdf]

Buenas
En resumen, lo que necesito es sacar el atributo de solo lectura de todo (subdirectorios, archivos, etc) lo que haya dentro de una determinado directorio.

Hice caso a la sugerencia de Neftali pero no logro cambiar los attributos de los subdirectorios.
El código es el siguiente:

Código Delphi [-]
var
   search : TSearchRec;
   nFiles : integer;
   cPath : String;

begin
  cPath:='c:\MiCarpeta\';
  nFiles:=FindFirst(cPath + '*.*', faAnyFile,  search );
  while nFiles = 0 do
  begin
    if Search.Attr = faDirectory then
    begin
      if (Search.Name<>'.') and (Search.Name<>'..') then
      begin
        SetFileAttributes(PChar(cPath + search.Name),FILE_ATTRIBUTE_NORMAL);
      end;
    end
    else
      SetFileAttributes(PChar(cPath + search.Name),FILE_ATTRIBUTE_NORMAL);
      nFiles:=FindNext(Search);
  end;
end;

Con este codigo me cambia todos los atributos de todo lo que contiene el nivel "c:\MiCarpeta" pero no de los subdirectorios y sus contenidos que hay allí adentro.
Alguna sugerencia?
Muchas gracias