Построение в TreeView

for i:=0 to Length(catID)-1 do //цикл по всей таблице
    begin
      if catParentID='0' then   // если элемент корневой
      tv2.Items.Add(nil,catID[ i]); // добавляем в treeview
    end; 
// итак ВСЕ корневые есть остались только потомки!!!

i:=0;
while i<tv2.Items.count // ОБЩЕЕ число элементов Tree на данный момент 
// по мере добавления оно (количество) будет меняться поэтому WHILE!!!
do begin
  t:=tv2.Items.Item[ i];
  // будем проверять ОДИН node(узел Tree) и без разницы какого он уровня 
  for q:=0 to ...//цикл по ВСЕЙ таблице 
  do begin
      if  t.... = catparentID[q]  then
      // (t)проверяемый в данный момент будет родительским для вот этого ...[q]
      begin
          tv2.AddChild(t, catID[q] );
          // добавим в ЭТОТ(t) узел  ---вот общее число и изменилось
          // НО! мы до него еще недобрались
     end;
  end; // уф-ф-ф! нашили и добавили всех его прямых потомков
  Inc(i);  // перейдем к следующему имеющемуся и НЕпросмтренному
end; // закончим

type 
  myrec =record id, parentID: integer;

var
  cat: array of myrec; // ОДИН массив ...

cat[q].ID   // и ID, 
cat[q].parentID // и его родительский ID