Удаление выделенных элементов в TreeView

[evgenidem]

Здравствуйте!

Подскажите пожалуйста, как удалить все выделенные элементы в TreeView.

Этот код почему-то не работает

    for i:=0 to TreeView.Items.Count-1 do
      begin
                if TreeView.Items.Item[i].Selected=true   then  TreeView.Items.Item[i].Delete;   
      end;

Delphi говорит, что обращается к неверному индексу

Может быть есть еще какой-нибудь способ?



Спасибо!

[Stilet]

for i:=0 to TreeView1.SelectionCount-1 do
 TreeView1.Selections[i].Delete;

[evgenidem]

Спасибо!!!