treeview里树结点递归删除的问题,深度优先

procedure deletetree(node:ttreenode)
begin
  if node = nil then exit;
  deletetree(node.getfirstchild);
  deletetree(node.getnextchild(node));
  
delete node;///删除节点
end;
=================================
树结点图：
a---+11----------12
    %%+------b-------u
    |      |
    |      +------x
    |
    +c
    |
    +d现在要删除%%结点，它不但删了%%结点下的以及它本身，连c,d两结点也删了
这怎么回事？