Delphi findet kein FindFirstCacheEntry

[Trouble_Maker]

hiho!
So ich möchte die URL´s in der Adressleiste löschen!
Ich habe hier im Forum gesucht und folgenden Code gefunden:

Code:

procedure TForm1.Cookies1Click(Sender: TObject); 

var 
  icei     : PINTERNETCACHEENTRYINFO; 
  dwSize   : DWord; 
  hSearch  : DWord; 

begin 
  CheckListBox1.Items.BeginUpdate; 
  CheckListBox1.Items.Clear; 
  dwSize  := 65536; 
  icei    := AllocMem(dwSize); 
  try 
    hSearch := FindFirstURLCacheEntry('visited:',icei^,dwSize); 
    if hSearch = 0 then 
    begin 
      ShowMessage(SysErrorMessage(GetLastError)+' '+IntToStr(dwSize)); 
      exit; 
    end; 
    while hSearch <> 0 do 
    begin 
      Application.ProcessMessages; 
      CheckListBox1.Items.Add(icei^.lpszSourceUrlName); 
      dwSize := 65536; 
      if not FindNextURLCacheEntry(hSearch,icei^,dwSize) then 
      begin 
        hSearch := 0; 
      end; 
    end; 
  finally 
    FreeMem(icei,65536); 
    CheckListBox1.Items.EndUpdate; 
  end; 
end; 


procedure TForm1.Lschen1Click(Sender: TObject); 

var 
  i : integer; 

begin 
  for i := 0 to CheckListBox1.Items.Count-1 do 
  begin 
    if CheckListBox1.Checked[i] then 
    begin 
      DeleteURLCacheEntry(PChar(CheckListBox1.Items[i])); 
    end; 
  end; 
  Cookies1.Click; 
end;

So jetzt findet er bei mir aber das "FindFirstCacheEntry" und das "PINTERNETCACHEENTRYINFO" nicht !!!
Muss ich irgendwas besonderes bei "uses" noch mit einbringen ?!?

Danke Trouble_Maker