There's PVirtualNode CheckType, CheckState and States (TVirtualNodeStates).But this holds for VirtualTreeView only. The thread is about the standard TTreeView.
var Parent, Child: TTreeNode; begin Parent := TreeView1.Selected; if Parent.HasChildren then begin if Parent.Count > 1 then begin Child := TreeView1.Selected.GetFirstChild; while Child <> nil do begin {... do something, eg. display Child.Text} Child := TreeView1.Selected.GetNextChild(Child); end; end; end; end;