请问如何在Treeview中删除选中的若干个项!!!(100分)

[]请问如何在Treeview中删除选中的若干个项

我用了如下代码，却只能删除第一条

//不能删除根节点
for i:=pred(treeview1.items.count) downto 0 do
if (treeview1.items.selected) and (treeview1.items.parent<>nil) then
treeview1.items.delete;


请高手指教!!!

先取得所有节点，存起来，再删除。可能在你删除第一个节点时被选中状态已经改变了。

这个问题不需要这么多分吧！

我以前使用的方法
我使用Node.Stateindex来标识节点是否处于选择状态
StateIndex=1表示未选择
StateIndex=2表示选择
procedure
var i:Integer;
begin
i:=0;
while i<TreeView1.Items.count do
begin
if (TreeView1.Items.stateIndex=2) and (TreeView1.Item.Parent<>nil) then
begin
TreeView1.Items.delete;
Dec(i);
end;
Inc(i)
end;

end;