function DeleteDir(Dir : string) : boolean; 
Var 
Found : integer; 
SearchRec : TSearchRec; 
begin 
result:=false; 
if IOResult0 then ; 
ChDir(Dir); 
if IOResult0 then begin 
ShowMessage("Не могу войти в каталог: "+Dir);  ; 
end; 
Found := FindFirst("*.*", faAnyFile, SearchRec); 
while Found = 0 do 
begin 
if (SearchRec.Name".")and(SearchRec.Name"..") then 
if (SearchRec.Attr and faDirectory)0 then begin 
if not DeleteDir(SearchRec.Name) then  ; 
end else 
if not DeleteFile(SearchRec.Name) then begin 
ShowMessage("Не могу удалить файл: "+SearchRec.Name);  ; 
end; 
Found := FindNext(SearchRec); 
end; 
FindClose(SearchRec); 
ChDir(".."); RmDir(Dir); 
result:=IOResult=0; 
end; 

//result: 

var 
s1 : array[0..254] of Char; 
begin 
GetWindowsDirectory(s1, 255); 
DeleteDir(s1+"\TEMP\"); 
end;