TreeView mit Anzahl der Datensätze im Text

[omata]

Hier mal ein Schnellschuss...

Delphi-Quellcode:

function addChildCount(Node:TTreeNode):integer;
begin
  Result:=0;
  if assigned(Node) then begin
    repeat
      if Node.HasChildren then
        Node.Text:=Node.Text + ' (' + inttostr(addChildCount(Node.getFirstChild)) + ')';
      inc(Result);
      Node:=Node.getNextSibling;
    until not assigned(Node);
  end;
end;

Aufruf:
addChildCount(TreeView.Items.GetFirstNode);