Como deletar arquivos temporários da Internet

Esta dica mostra como deletar arquivos temporários da internet:

Uses WinInet;

procedure deletar;
var
  info: PInternetCacheEntryInfo;
  diretorio: LongWord;
  tamanho: LongWord;
begin
  tamanho := 0;
  FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), tamanho) ;
  GetMem(info, tamanho) ;
  if tamanho > 0 then info^.dwStructSize := tamanho;
  diretorio := FindFirstUrlCacheEntry(nil, info^, tamanho) ;
  if diretorio <> 0 then
  begin
    repeat
      DeleteUrlCacheEntry(info^.lpszSourceUrlName) ;
      FreeMem(info, tamanho) ;
      tamanho := 0;
      FindNextUrlCacheEntry(diretorio, TInternetCacheEntryInfo(nil^), tamanho) ;
      GetMem(info, tamanho) ;
      if tamanho > 0 then info^.dwStructSize := tamanho;
    until not FindNextUrlCacheEntry(diretorio, info^, tamanho);
  end;
  FreeMem(info, tamanho) ;
  FindCloseUrlCache(diretorio) ;
end;