[WAScrew]

Здравствуйте, столкнулся с проблемой, нужно было создать кнопку, при нажатии на которую добавляется корневой узел и комбобокс, в который добавляется название этого узла, чтобы потом к нему обращаться, добавлять в него дочерние узлы нажатием другой кнопки. Но проблема заключается в том, что если я добавляю 2 корневых узла (К примеру), то когда я создаю дочерний в выделенном комбобоксе, а затем хочу добавить во второй, то он добавляется в дочерний. Как добавлять только в корневой?

Код:

procedure TForm2.Button1Click(Sender: TObject);//добавление дочернего
begin
  with TreeView1 do
  begin
    Items.AddChildFirst(Items[ComboBox1.ItemIndex],inttostr(ComboBox1.ItemIndex));
  end;
end;
 
procedure TForm2.Button2Click(Sender: TObject);//добавление родительского и засовывание его в комбобокс
var
i:integer;
v:string;
j:integer;
Node: TTreeNode;
begin
  ComboBox1.Items.clear;
  TreeView1.Items.Add(NIL,Edit1.Text);
  ComboBox1.ItemIndex:=0;
  Node := TreeView1.Items.GetFirstNode;
  while Assigned(Node) do
  begin
    ComboBox1.Items.Add(Node.Text);
    Node := Node.getNextSibling;
  end;
end;