Delete the TreeView node and its child nodes

//1. Deleting a TreeView node and its child nodes
procedure Tform2.button1click (sender:tobject);
var Treenode:ttreenode;
begin
if treeview1.selected <> Nil Then
Begin
TreeNode: = TreeView1.Selected.getFirstChild;
While TreeNode <> nil do
begin
Treenode.delete;
TreeNode: = TreeView1.Selected.getFirstChild;
end;
end;
end;

//2. Determine if there are child nodes
Procedure Tform2.button2click (Sender:tobject);
Begin
If TreeView1.Selected.HasChildren Then
Begin
ShowMessage (' with child nodes ');
End
End

Delete the TreeView node and its child nodes