удаление папки с файлами в Delphi

Question

Помогите, пожалуйста написать код для Button"1", с помощью которого можно буте удалить папку вместе с её содержимым. 
К примеру C:\111. 
заренее спасибо.

Агата *** · Accepted Answer

Поштучно ищете файлы, удаляете их, потом удаляете пустые папки (рекурсивно) , потом собственно саму папку.

Далер Меликов · Answer

DirPurge('C:\111'); 
 
И нефиг изобретать велосипеды.