An Alle Items in einer TBX.Toolbar herankommen

[newbe]

Moin zusammen!

Ich möchte gerne ALLE Items in einer TBX Toolbar ermitteln. Leider gibt es dort ja kein Findfirst-Findnext;

Ich muesste mich also vom Rootknoten Recursiv nach unten bewegen. Gehts das eventuell auch einfacher?

Momentan versuche ich es so

Delphi-Quellcode:

var
List: TStringlist;
For i: 0 to TBXToolbar1.Items.Count-1 do
begin
  Item:= TBXToolbar1.Items[i];
  List.add(Item.Name);
end;

aber leider erhalte ich dabei nur die Subitems/Items auf dem obersten Level. Weis jemand wie es richtig bzw Effizienter geht.

mfG Newbe