procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  DeleteNodesAction.Visible := TreeView1.SelectionCount > 0;
end;