Количество потомков у узла. Treeview

[Женька Good]

Здравствуйте, необходимо узнать кол-во узлов-потомков у каждого узла, который их имеет и заносить их в мемо.

procedure TForm1.Button4Click(Sender: TObject);
var n: integer;
begin
n:=TreeView1.Items.Count;
for I := 0 to n-1 do
  begin
    if TreeView1.Items.Item[i].HasChildren=true then
      begin
       Memo1.Lines.Add(IntToStr(TreeView1.Selections[i].Count));
    end
    else
      Label1.Caption:='0';
end;
end;

выдает ошибку. Насколько я понимаю, то корректно считаются только потомки самого первого узла.

[Streletz]

Возможно, эти примеры Вам как-то помогут:
delphi - Количество корней и вложеных элементов в treeview

[eval]

кто писал этот, прости господи, код?

[Женька Good]

Сообщение от eval

кто писал этот, прости господи, код?

Напиши лучше!

[eval]

лехко
a + b
в 100500 раз лучше

[XE5]

eval Это не код.

[Женька Good]

Сообщение от XE5

eval Это не код.

eval себе рейтинг набивает

[eval]

да вы без рейтинга скажите что вот тут происходит
Memo1.Lines.Add(IntToStr(TreeView1. Selections[i].Count));
? потом про рейтинг поговорим

[Женька Good]

Сообщение от eval

да вы без рейтинга скажите что вот тут происходит
Memo1.Lines.Add(IntToStr(TreeView1. Selections[i].Count));
? потом про рейтинг поговорим

Если не знаешь, что написать или посоветовать - не пиши ничего.

[eval]

чтд - что требовалось доказать