Программное заполнение TreeView

Работаю с компонентом TTreeView. Нужно заполнить его программно, выцепив наименование элементов из БД. Делаю так:

for i := 0 to Parent_RecordsCount - 1 do begin
with Self.TreeView_SACardClasses do begin
Items.Add(nil, {это у меня текст для нового узла} arrsCardClasses_Parent[1]);
end;

for j := 0 to FirstChild_RecordsCount - 1 do begin
with Self.TreeView_SACardClasses do begin
Items.AddChild(Items.Item, arrsCardClasses_FirstChild[j][1]);
end;
end;
end;

Что получаю:
1(Первый узел)
|__ 1.2(Дочерний узел)
----|__2.1() и т.д.
-------|__3.1
----|__2.2
----|__2.3
2(Второй узел)
3...

А хотелось бы:
1(Первый узел)
|__1.2(Дочерний узел)
2(Второй узел)
|__2.1()
3
|__3.1
и т.д.

Т.е. очередной дочерний узел вставляется не для родительского компонента первого уровня с индексом i, а для очередного верхнего дочернего и получается "матрешка" (если что нибудь понятно из моего импровизировавнного рисунка).
Подскажите пожалуйста, что я здесь делаю не так?