1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TfmStart.FormPaint(Sender: TObject);
var
  NewNode : TTreeNode;
  //FPath : string; //DateiPfad == Parrentnode
  //FName : string; //Dateiname == ChildNode
  PName : string; //Projectname == RootNode
  run : PHtmlProject;
begin
  ShowListContent(HtmlListe); //Zugriff auf Dateiname/Pfade ueber HtmlListe

  //Konstruieren des Baumes hier Root erstellen
  if (GProjectName <> '') then //GProjectName (globale Variable)
  begin
    PName:= ExtractFilePath(GProjectName);
    NewNode:= trProject.Items.AddChild(nil, PName);//Soll der Root sein
    NewNode.ImageIndex := 0;
    NewNode.SelectedIndex := 0;
  end;

  //ToDo
  //Kindknoten und Kindesknoten erzeugen

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var Rootknoten: TTreenode; 
Treeview.Items.Clear;

Rootknoten:=TreeView.Add(GProjectName);
...
...
// Jetzt kommen die Kinder -)

Treeview.AddChild(Rootknoten,'Ein Kind');

....