Firemonkey работа c Treeview

for i := 0 to indexI {- 1} do
  begin
    obj := TCustomer.Create(_getObjectSet[i].id,_getObjectSet[i].objectName,_getObjectSet[i].objectType);
    if Lst.IndexOf(obj) = -1 then Lst.Add(obj);
  end;
 
     for I := 0 to lst.Count-1 do
begin
TabbedwithNavigationForm.ListBox1.Items.AddObject(lst[i].qobjectName,lst[i]);
end;

var
  Item1 : TTreeViewItem;
  Item2 : TTreeViewItem;
begin
  Item1 := TTreeViewItem.Create(Self);
  Item1.Text := 'My First Node';
  Item1.Parent := TreeView1;
 
  Item2 := TTreeViewItem.Create(Self);
  Item2.Text := 'My Child Node';
  Item2.Parent := Item1;
end;

var
  It: TTreeViewItem;
begin
  It := TTreeViewItem.Create(Self);
  with It do
  begin
    Text := 'My First Node';
    TreeView1.AddObject(It);
    AddObject(TTreeViewItem.Create(It));
    Items[0].Text := 'My Child First Node';
    AddObject(TTreeViewItem.Create(It));
    Items[1].Text := 'My Child Second Node';
    AddObject(TTreeViewItem.Create(It));
    Items[2].Text := 'My Child Third Node';
  end;
end;