Delphide Dosya Silmek - (Sordurmadan)

Arkadaşlar Delphide herhangi bir klasörü sildirmesi tamam.Ama klasörü sil dediğimizde kullanıcıya birşey sormadan içindekilerle beraber komple silmesinin bir yolu var mı ?
Teşekkürler

function tkamil.silDir(klasor_yolu: string): Boolean;
var
  fos: TSHFileOpStruct;
//BYJEEPOWER@HOTMAIL.COM, KAMILYESIL@GMAIL.COM ,BYJEEPOWER@gmail.com
//Copyright (C) @ BY_KAMIL_YESIL
begi
  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;

//bi dene

SAYGILAR