delphi删除文件夹 win10文件粉碎机

怎样用delphi删除一个文件夹(文件夹中含多层文件)？函数TData1.DeleteDirectory（const来源：String)：booleanvar fo:t...