cookies delete z tempa

Witam! Chcialem napisac program, który usuwac bedzie okresnole pliki z katalogu Temporatory Internet Files. chcĘ konkretnie usuwac tylko 3 pliki, zeby zajmowalo to krocej niz usuwanie calego katalogu(wszystkich plikow w nim). Napisalem jzu kawalek kodu. dziala on jak w kodzie wpisze np.: c:\plik.html ale jak wpisze sciezke do Temporatoty Internet Files to wyskakuje mi bład. Moj kod jest nastepujacy:

procedure TMainForm.usunClick(Sender: TObject);
var
R : TSHFileOpStruct;
begin
//pierwszy plik
     begin
      with R do
      begin
      Wnd:=Handle; // oznaczenie uchwytu
      wFunc := FO_DELETE;// opcja
      pFrom:='C:\WINDOWS\Temporary Internet Files\plik1.html'; // z pliku
      fFlags := FOF_ALLOWUNDO;
      end;
      SHFileOperation(R);
     end;
//drugi plik
     begin
      with R do
      begin
      Wnd:=Handle; // oznaczenie uchwytu
      wFunc := FO_DELETE;// opcja
      pFrom:='C:\WINDOWS\Temporary Internet Files\cookie:[email protected]'; // z pliku
      fFlags := FOF_ALLOWUNDO;
      end;
      SHFileOperation(R);
     end;
//trzeci plik
     begin
      with R do
      begin
      Wnd:=Handle; // oznaczenie uchwytu
      wFunc := FO_DELETE;// opcja
      pFrom:='C:\WINDOWS\Temporary Internet Files\plik3.css'; // z pliku
      fFlags := FOF_ALLOWUNDO;
      end;
      SHFileOperation(R);
     end;
end;

Zgóry dzieki za pomoc

A nie lepiej uzyc

DeleteFile(FileName);

? :-)

Ten kod nie znajdzie katalogu TempInternet w XP jest on w innym miejscu zacznij od.

Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',FALSE) then
begin
   if Reg.ValueExists('Cache')=true then TempKatalog := Reg.ReadString ('Cache')
                                    else TempKatalog := 'c:';
end;
Reg.Free;
TempKatalog := TempKatalog + '\Content.IE5';

Poczym przeszykaj stanadtowo podkatalogi
FindFirst, FindNext w czasie przeszukiwania podkatalogów użyj DeleteFile

po pierwsze to kodu :

procedure TForm1.Button1Click(Sender: TObject);
begin
     DeleteFile('C:\WINDOWS\Temporary Internet Files\Cookie.txt');
end;

juz probowalem. nie wyskakuje blad, ale tez nie wyrzuca pliku...

po drugie to nie ma byc program uniwersalny, tylko ma usuwac pliki z mojego kompa pod 98 z tej lokalizacji. ma usunac 3 pliki z tej lokalizacji: 'C:\WINDOWS\Temporary Internet Files\ a nie calosc, bo zajmuje to troche a zalezy mi na czasie :D