[TCheckListBox] jak usunąć wszystkie zaznaczone pozycje

Witam ponownie:)

Jak usunać wszystkie zaznaczone pozycje w TcheckListBox. Mam coś takiego ale raz mi działa raz nie:

for licznik:=1 to (tchecklistbox1.Items.Count) do
  begin
    if(tchecklistbox1.Checked[licznik]) then tchecklistbox1.Items.Delete(licznik);
  end;

I jeszcze mam jedno pytanie: Jak uzyskać numer pozycji, którą zaznaczyłem?
Pozdrawiam
rajki

for licznik:=(checklistbox1.Items.Count)-1 downto 0 do
  begin
    if(checklistbox1.Checked[licznik]) then checklistbox1.Items.Delete(licznik);
  end;