Kautkas lāgā nedarboas ar Delphi Kodu...

Tātad Biju domājis izveidot programmiņu, kas izdzēstu Temp un Temporary internet files mapju saturu, bet apstājos pie tā, ka mēģinot dzēst

C:\Docents and Settings\Home\Local Settings\Temporary Internet Files

mapi, nekas nenotiek,bet visas citas mapes dzēšas normāli.

kods ir šāds:

APath:=C:\Docents and Settings\Home\Local Settings\Temporary Internet Files;
 FindFirst(APath+'\*.*', faAnyFile+faReadOnly, MySearch);
 Memo1.Lines.Add(MySearch.Name + ' ..    Deleted');
 DeleteFile(APath+'\'+MySearch.Name);
 while FindNext(MySearch)=0 do
 begin
   Memo1.Lines.Add(MySearch.Name + ' ..    Deleted');
   DeleteFile(APath+'\'+MySearch.Name);

Kas jalabo kodā, lai dzēstos arī Temporary internet files mape?