1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

TreeView_List.Items.Clear;
  node := TreeView_list.Items.AddChild(nil,'Übersicht');
  TreeView_List.Items[0].ImageIndex := 9;
  TreeView_List.Items[0].SelectedIndex := 9;
  Form_Login.IdTCPClient1.WriteLn('dbserverlist');
  i := 1;
  repeat
    if i = 1 THEN response := Form_Login.IdTCPClient1.ReadLn;
    response := Form_Login.IdTCPClient1.ReadLn;
    if Response = 'OK' then
    begin
      ende := true;
    end
    else
    begin
      fserver := TServer.Create;
      server := TStringList.Create;
      try
      server.CommaText := response;
      fserver.Name := server.Strings[0];
      fserver.Data).Port := server.Strings[1];
      fserver.Name := server.Strings[2];
      fserver.Status := server.Strings[3];
      finally
      server.Free;
      TreeView_List.Items.AddChild(node,fserver.Port);
      if TreeView_List.Items[i].Level <> 0 THEN
      begin
        if fserver.Status = '1' THEN
        begin
          TreeView_List.Items[i].ImageIndex := 8;
          TreeView_List.Items[i].SelectedIndex := 8;
        end
        else
        begin
          TreeView_List.Items[i].ImageIndex := 7;
          TreeView_List.Items[i].SelectedIndex := 7;
        end;
      end;
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

  var
    Root, Node: TTreeNode;
    FServer: TServer;
begin
  TreeView_List.Items.Clear;
  Root := TreeView_list.Items.Add(NIL,'Übersicht');
  Root.ImageIndex := 9;
  Root.SelectedIndex := 9;

  FServer := TServer.Create;
  FServer.Name := 'hostname';
  FServer.Port := '1234';
  FServer.Status := '1';
  Node := TreeView_List.Items.AddChild(Root,FServer.Port);
  Node.Data := FServer;					

1:

  Node := TreeView_List.Items.AddChildObject(Root,FServer.Port,FServer);