[Pablo Carlos]

Hola... con este código puedes eliminar un directorio y su contenido, pero ojo que no va a la papelera
Para mostrar código usa las etiquetas delphi --> [ delphi ] al comenzar y --> [ /delphi ] al finalizar (sin los espacios), verás que es mucho más comoda la lectura.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 DirInfo: TSearchRec;
 r : Integer;
begin
 r := FindFirst('C:\MiDirectorio\*.*', FaAnyfile, DirInfo);
 while r = 0 do  begin
   if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
     (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
      if DeleteFile(pChar('C:\MiDirectorio\' + DirInfo.Name)) = false then
       ShowMessage('No se puede borrar: ' C:\MiDirectorio\ + DirInfo.Name);
       r := FindNext(DirInfo);
 end;
   SysUtils.FindClose(DirInfo);
   if RemoveDirectory('C:\MiDirectorio') = false then
    ShowMessage('No se puede borrar el directorio: ' C:\MiDirectorio);
end;
end.

Feliz día del trabajador a todos/as
Saludos