TTreeView - Items mit SubItems anlegen

[Andreas L.]

Hi,
ich möchte in einer TreeView folgende Struktur darstellen:

Code:

-Item1
--SubItem1
--SubItem2
-Item2
--SubItem1
--SubItem2
etc...

Mein aktueller Code sieht so aus:

Delphi-Quellcode:

procedure TfrmWizard.RefreshFileList;
var
  iPath, iFile: Integer;
begin
  treeFiles.Items.BeginUpdate;
  try
    treeFiles.Items.Clear;
    for iPath := 0 to damData.Config.Paths.Count - 1 do
    begin
      treeFiles.Items.AddFirst(nil, '');
      treeFiles.Items[iPath].Text := damData.Config.Paths[iPath].Path;
      treeFiles.Items[iPath].ImageIndex := damData.GetFileIcon(damData.Config.Paths[iPath].Path);

      for iFile := 0 to damData.Config.Paths[iPath].Files.Count - 1 do
      begin
        treeFiles.Items.AddChild(treeFiles.Items[iPath], '');
        treeFiles.Items[iPath].Item[iFile].Text := damData.Config.Paths[iPath].Files[iFile].FileName;
        treeFiles.Items[iPath].Item[iFile].ImageIndex := damData.GetFileIcon(damData.Config.Paths[iPath].Path + damData.Config.Paths[iPath].Files[iFile].FileName);
      end;
    end;
  finally
    treeFiles.Items.EndUpdate;
  end;
end;

Leider wird mir folgendes in der TreeView angezeigt:

Code:

-
-
-
-
-
-
-
-
...
-Name vom letzten Item
--Name erstes SubItem
--Name zweites SubItem
--
--
--

Es werden also die Haupteinträge angelegt, jedoch nur der letzte beschriftet. Auch ist der letzte Eintrag der einzige der SubItems hat und zwar zuviele (deshalb erhalten auch nur die ersten SubItems eine Beschriftung).

Anstatt AddFirst habe ich auch schon Add und AddChild versucht. Bei letzteren erhalte ich so eine Struktur:

Code:

-Item1
--SubItem1
--SubItem2
--Item2
---SubItem1
etc...

Die Delphi-Hilfe hilft mir auch nicht. Wo liegt der Fehler?