TTreeView

Code:

function TDBTreeView.RecurseChilds(node: TTreeNode): double;

begin

while node <> nil do begin

   if node.HasChildren then

      Result := RecurseChilds(node.GetFirstChild);

   Result := Result + GetResultForNode(node));

   node := node.GetNextSibling;

end;

end;

function TDBTreeView.GetResult(curnode: TTreeNode;): double;

begin

Result := 0;

if curnode = nil then Exit;

Result := RecurseChilds(curnode.GetFirstChild);

end;