Удаление папок

begin
  // Создание нового каталога в текущей директории
  if CreateDir('TestDir')
  then ShowMessage('Новый каталог добавлен')
  else ShowMessage('Добавление нового каталога провалилось с ошибкой: '+
                   IntToStr(GetLastError));
 
  // Удаление этого каталога
  if RemoveDir('TestDir')
  then ShowMessage('TestDir удален')
  else ShowMessage('TestDir не удален, произошла ошибка : '+
                   IntToStr(GetLastError));
end;

procedure TForm1.DelAllinFolder(const dir: string);
Var SR:TSearchRec;
    FindRes:Integer;
begin
FindRes:=FindFirst(dir+'*.*',faAnyFile,SR);
While FindRes=0 do
   begin
    if ((SR.Attr and faDirectory)=faDirectory)and(SR.Name<>'.')and(SR.Name<>'..') then
      begin
      Application.ProcessMessages;
        DelAllinFolder(dir+SR.Name+'\');
        RemoveDir(dir+SR.Name);
      end;
    if ((SR.Attr and faDirectory)<>faDirectory)and(SR.Name<>'.')and(SR.Name<>'..') then
        DeleteFile(dir+SR.Name);
 
      FindRes:=FindNext(SR);
   end;
FindClose(SR); // çàêðûâàåì ïîèñê
end;

TDirectory.Delete('полный путь твоей директории',true);

function DelDir(dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;