Pasta não some após deletada

Olá Programadores....
É a minha primeira vez em Forum, e espero não estar perguntando besteira, mas googlorizei e não encontrei nada que me ajudasse nesse caso. Bom vamos ao que interessa.
Após compactar uma pasta estou deletando-á, porem ela só some após a aplicação ser encerrada, provavelmente porque ela está presa a memoria com o programa, mas eu gostaria que ela sumisse pois a aplicação ficará aberta todo o tempo.
Estou usando essa rotina para deleta-lá com tudo o que tem dentro.

procedure DeletaDir(const RootDir:string);
var
SearchRec: tSearchREC;
Erc:Integer;
Begin
try
{$I-}
ChDir(rootdir);
if IOResult <> 0 then
Exit;
FindFirst('*.*', faAnyFile, SearchRec);
Erc:=0;
while Erc=0 do
begin
if ((searchRec.Name <> '.') and (searchrec.Name<>'..')) then
if (SearchRec.Attr and faDirectory>0) then
DeletaDir(SearchRec.Name)
Else DeleteFile(pansichar(Searchrec.Name));
Erc:=FindNext ( SearchRec);
Application.ProcessMessages;
end;
finally
If Length (RootDir)>3 then
Chdir('..');
end;
RmDir(rootDir);
{$I+}
End;