Hilfe im Umgang mit TreeView

[Kanne_Kaffe]

Hallo,

Habe eine TreeView die ungefähr so aussieht

+ Haupteintrag A
- Bla 1
- Bla 2
- Bla 3
+ Haupteintrag B
- Bla 1
- Bla 2
- Bla 3
+ Haupteintrag C
- Bla 1
- Bla 2
- Bla 3

Jetzt möchte ich erreichen, das die Haupt-Noden mit den Unter-Noden aufgelistet werden:
Haupteintrag A Bla 1
Haupteintrag A Bla 2
Haupteintrag A Bla 3
Haupteintrag B Bla 1
Haupteintrag B Bla 2
Haupteintrag B Bla 3
Haupteintrag C Bla 1

Ich bekomme das mit einer Schleife nicht irgendwie nicht hin weil, TreeView.Items.Count alle Einträge des TreeView
greifen so das ich so am Ende "Doppel-Moppel". Is doof zuerklären...

Delphi-Quellcode:

  for I := 0 to TreeView1.Items.Count-1 do
    Memo1.Lines.Add(TreeView1.Items.Item[I].Text)

Erzeugt folgende Ausgabe

Haupteintrag A
Bla 1
Bla 2
Bla 3


Ich hoffe jemand versteht und erkennt das Problem