Simular un Deltree. Borrar un directorio y todo su contenido

[dec]

var
search: TSearchRec;
nFiles: integer;
begin
nFiles:=FindFirst( cPath + '\*.*', faAnyFile, search );
while nFiles=0 do
begin
if Search.Attr = faDirectory then
begin
if (Search.Name<>'.') and (Search.Name<>'..') then
begin
Deltree( cPath + '\' + Search.Name );
RMDir( cPath + '\' + Search.Name );
end;
end
else
SysUtils.DeleteFile(cPath + '\' + Search.Name);
nFiles:=FindNext( Search );
end;
FindClose(Search);
RMDir(cPath);
end;