How to Clear Typed URL History

Please see this code (not mine)

//***************************
   procedure TForm1.FormCreate(Sender: TObject);
Var
  reg:TRegistry;
  url:Integer;
  URL1:String;
begin
  listbox1.Clear ;
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('Software\Microsoft\Internet Explorer\TypedURLS',False);
  URL:=1;
  While URL<>1000 Do

  Begin
    URL1:=(reg.ReadString('url'+IntToStr(url)));
    If URL1='' Then URL:=1000

    Else
     Begin
     listbox1.Items.Add(URL1+IntToStr(url));
       Url:=Url+1;
     End;
  End;
  reg.CloseKey;
  reg.Free;
end;

//***************************
  I'll show value in listbox1. The question is how i can delete just reg.value is seleted in Listbox1.
      Not Clear all

Thanks.