TreeView: TreeNode -> untergeordneter Eintrag

[DieFliege]

Hallo Zusammen,

ich stehe mal wieder vor einem Wald und finde den passenden Baum nicht.

Zum Problem:
Ich habe die ListBox1, in der die Parents aufgeführt werden und die ListBox2 worin die Childs sind. Nun möchte ich den ersten Eintrag aus der ListBox1 in TreeView2 einfügen, was funktioniert. Nun sollen die Childs zum ersten Parent eingetragen werden, dann das 2. Parent und wieder die Childs.

Irgendwo habe ich einen Denkfehler, ich komme aber nicht drauf. Damit klar ist, was ich vor habe, erst mal 2 Screens:

So habe ich das bisherige Ergebnis:
falsch.jpg

So soll es aber aussehen:
richtig.jpg

Diesen Quelltext habe ich:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  PA: Integer;  //Parent Anzahl
  PZ: Integer;  //Parent Zähler
  CA: Integer;  //Child Anzahl
  CZ: Integer;  //Child Zähler

begin
  PZ := 0;
  CZ := 0;
  PA := listbox1.Items.Count;   //Anzahl der Einträge in der Listbox1 ermitteln
  CA := listbox2.Items.Count;   //Anzahl der Einträge in der Listbox2 ermitteln

  while PZ < PA do
    begin
      treeview2.Items.Add(nil, listbox1.Items[PZ]);
          while CZ < CA do
            begin
              treeview2.Items.AddChild('XXXXX', listbox2.Items[CZ]);  // <---- Hier ist der Knackpunkt (vermute ich)
              CZ := CZ + 1;
            end;
      PZ := PZ + 1;
      CZ := 0;
    end;
end;

Ich weiß, dass ich dem Treeview irgendwie klar machen muss, unter welchem Parent ('XXXXX') was für ein Child soll, aber wie gesagt - Ich finde den richtigen Baum einfach nicht.

Könnt Ihr mir noch einmal einen Tipp geben? Wäre prima. Vielen Dank schon mal!

LG DieFliege