TreeView sumowanie

Witajcie, znów jestem zmuszony prosić was o pomoc. Podam przykład, który obrazuje mój problem. Załóżmy, że mamy drzewo jak te poniżej:

dystrybutor
I__Sklep1
I__Sklep2
I__Hurtownia1
I__Sklep3
I__Sklep4

Każdy sklep ma już swoją zadaną liczbę sprzedanego towaru. Dla Hurtowni i dystrybutora ta liczba to ma być suma sprzedaży w podległych mu jednostkach.
Znalazłem w internecie trochę info, ale głównie dla ListView:

 
for k := 0 to TreeView1.Items.Count - 1 do
    for j := 0 to TreeView1.Items[k].SubItems.Count - 1 do
    begin
      TDane(TreeView1.Items[k].data).sprzedane):=(TDane(TreeView1.Items[k].subitems[j].data).sprzedane)+TDane(TreeView1.Items[k].data).sprzedane);
    end;

Wiem, że podany przykład i tak by tego nie posumował w taki sposób jak opisałem, ale byłby już dobrym wyjściem do tego.
Czy TreeView nie ma subitems i trzeba coś z Nodami kombinować? Jeżeli tak to jak uzyskać opisany efekt?

Pozdrawiam