Delphi deletes files from the entire directory and directory

Delete an entire folder and all files under it
function Deldirall (adir:string): Boolean;
Var
Vsearch:tsearchrec;
Vret:integer;
vkey:string;
Begin

If Adir[length (aDir)] <> ' Then
ADir: = ADir + ' \ ';
Vkey: = ADir + ' * * ';
Vret: = FindFirst (vkey, Faanyfile, Vsearch);
While Vret = 0 do
Begin
if ((vsearch.attr and fadirectory) = Fadirectory) Then
Begin
if (Vsearch.name <> ') and (Vsearch.name <> ' ... ') then
Deldirall (ADir + vsearch.name);
End
Else
Begin
if ((Vsearch.attr and Fadirectory) <> fadirectory) Then
Begin
{System.sysutils.} DeleteFile (ADir + vsearch.name);
End
End
Vret: = FindNext (Vsearch);
End While

{System.sysutils.} FindClose (Vsearch);
RemoveDir (ADir); Add if you need to delete a folder
Result: = True;
End

Delphi deletes files from the entire directory and directory