怎样删除指点节点？？

Question

例如：
A   1
   2
   3
B
   W
   E
   R
删除A下的一个节点2

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i :integer;
begin
  for i :=0 to TreeView1.Items.Count-1 do
    if Treeview1.Items[i].Text ='2' then
    begin
      TreeView1.Items.Delete(Treeview1.Items[i]);
      exit;
    end;
end;