if cxDBTreeList1.FocusedNode.HasChildren = true then
 begin
    Application.MessageBox('当前目录下有下级节点，不能删除！', '提示', MB_OK + MB_ICONINFORMATION);
    exit;

 end;

 

https://www.cnblogs.com/windson/p/12663153.html