Удаление папки с файлами

type TArrayString = array of string;

procedure DirList(Dir: string; var DirArr: TArrayString; Over: byte = 0);
var F: TSearchRec;
begin
   ChDir(Dir);
   if Over=0 then
      SetLength(DirArr, 0);
   SetLength(DirArr, Length(DirArr)+1);
   DirArr[Length(DirArr)-1]:=Dir;
   if Dir[Length(Dir)]<>'\' then
      Dir:=Dir+'\';
   if FindFirst('*', faAnyFile, F)=0 then
   repeat
      if F.Attr and faDirectory <> faDirectory then
         DeleteFile(Dir+F.Name);
   until FindNext(F)<>0;
   if FindFirst('*', faAnyFile, F)=0 then
   repeat
      if F.Attr and faDirectory = faDirectory then
         if not (F.Name='.') and not (F.Name='..') then
         begin
            DirList(Dir+F.Name, DirArr, 1);
            ChDir(Dir);
         end;
   until FindNext(F)<>0;
   FindClose(F);
   if Over=0 then
      ChDir('C:\');
end;

procedure TForm1.Button1Click(Sender: TObject);
var DirArr: TArrayString;
    i: integer;
begin
   DirList('E:\tmp', DirArr);
   for i:=High(DirArr) downto Low(DirArr) do
      RemoveDir(DirArr);
end;

//----- удаляем файлы в заданной папке -----------------------------------------
procedure DelFile(FullName:string);
var SHFP:SHFILEOPSTRUCT;
begin
   Windows.SetFileAttributes(PChar(FullName),0);//снимаем с него все атрибуты
   ZeroMemory(@SHFP,SizeOf(SHFP));
   with SHFP do
   begin
      wFunc:=FO_DELETE;
      pFrom:=pChar(FullName);
      fFlags:=FOF_NOCONFIRMATION;//втихаря скрытно удаляем
   end;
   SHFileOperation(SHFP);
end;