Deletes all children of the node.
procedure DeleteChildren;
Description
Use the DeleteChildren method to delete all children of a tree node,
freeing all associated memory.
不知这个很简单的是否是你想要的：
procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
if TreeView1.Selected<>nil then
Showmessage(TreeView1.Selected.Text);
end;
