Brauche Hilfe bei WORD-Steuerung

[dragi]

Hallo,

ich möchte die Struktur einer TreeView in einer Zelle einer Word-Tabelle darstellen.
Also ungefähr so (NODE = Knoten in der TreeView):

Code:

NODE 1
  *Untereintrag 1
  *Untereintrag 1.1
NODE 2
  *Untereintrag 2
  *Untereintrag 2.1

Vor jedem Untereintrag erscheint dann dieser Punkt(Bullet) wie Word es nunmal bei Untereinträgen macht, oben als Sternchen dargestellt. Mein Problem ist jetzt nur das bei meinem Code jeder nachfolgende NODE den ersten überschreibt. Ich weiss einfach nicht wie ich nach dem letzten Untereintrag den nächsten NODE einfügen soll.

Code:

for j := 0 to TreeView.Items.Count - 1 do
begin
  if TreeView.Items[j].Level = 0 then
  begin
    tbl1.Range.Font.Bold := 1;
    tbl1.Cell(2, 1).Range.Text := 'Changed';
    tbl1.Cell(2, 2).Range.Text := Date;
    tbl1.Cell(2, 3).Range.Text := TreeView.Items[j].Text;
    nstart := tbl1.Cell(2, 3).Range.Get_End_;
    for i := 0 to TreeView.Items.Count - 1 do
    begin
      if TreeView.Items[i].Level = 1 then
      begin
        if TreeView.Items[i].Parent = TreeView.Items[j] then
        begin
          Par := tbl1.Cell(2, 3).Range.Paragraphs.Add(Emptyparam);
          Par.Range.Text := TreeView.Items[i].Text;
        end;
      end;
    end;
    tbl1.Cell(2, 3).Range.Paragraphs.Alignment := wdAlignParagraphJustify;
    nend := tbl1.Cell(2, 3).Range.Get_End_ - 1;
    WordApp.Selection.SetRange(nstart, nend);
    WordApp.Selection.Range.ListFormat.ApplyBulletDefault;
  end;
end;

Irgendwie Blick ich da nicht so ganz durch. Hat jemand vielleicht eine Idee wie ich das ändern muss?

Vielen Dank

dragi