Delphi - que alguien me ayude please..

por favor, nesecito un código para borrar una carpeta con todos sus directorios y archivos..
ayudenme con esto....

//Borra un directorio, y todos sus subdirectorios y archivos
function BorrarDirectorio(Directorio:string):LongInt;
var F:TShFileOpStruct;
sDir:string;
begin
if IsPathDelimiter(Directorio,Length(Directorio)) then Delete(Directorio,Length(Directorio),1);
sDir := Directorio + #0;
with F do
begin
Wnd:=Application.Handle;
wFunc:=FO_DELETE;
pFrom:=@sDir[1];
fFlags:=FOF_NOCONFIRMATION;
end;
Result:=ShFileOperation(F);
end;

Saludos.