Чудес не бывает, но в таком случае как это мне понять

procedure TForm1.MyAddNode(parent: TTreeNode; parentID : integer; NodeType : TNodeType);
var
   i,n : integer;
   node_ : TTreeNode;
   PData : ^TDeviceData;
   PCatalogData : ^TCatalogData;
   nodes : array of pointer;
begin
//**********************Эту процедуру можно немножко оптимизировать но позже этим займусь************************************
   n := 0;
   IBQuery1.Close;                                                                //закрываем запрос
   IBQuery1.SQL.Clear;                                                            //очищаем текст запроса
   if parent = nil then                                                           //если родительского узла нет(то бишь мы работаем с корневым узлом)
      begin
         if NodeType = catalog then
             IBQuery1.SQL.Add('select * from T_CATALOGS where PARENT is null')    //формируем запрос который ищет каталоги без родителей
           else
             IBQuery1.SQL.Add('select * from T_DEVICE where PARENT is null');     //формируем запрос который ищет железяки без родителей
      end else                                                                    //иначе
         begin
            if NodeType = catalog then
                IBQuery1.SQL.Add('select * from T_CATALOGS where PARENT = :n')    //формируем запрос который на выдаст каталоги с родителем имеющем указанный идентификатор
              else
                IBQuery1.SQL.Add('select * from T_DEVICE where PARENT = :n');     //формируем запрос который на выдаст железяки с родителем имеющем указанный идентификатор
              IBQuery1.ParamByName('n').AsInteger := parentID;                    //параметрик ID родителя для которого ищем
         end;
         IBQuery1.Open;                                                           //посылаем
          if IBQuery1.Fields[0].AsString <> '' then                               //если запрос вернул нам что-то
              begin
                 n := IBQuery1.RecordCount;                                       //берём количество записей(его приходится писать в переменную потому что на последней итерации оно увеличивается)
                 SetLength(nodes,n);                                              //выделяем память под массив для хранения данных об узлах
                // showmessage(inttostr(Length(nodes)));
                 for i := 0 to Length(nodes)-1 do                                 //хреначим на всю длину массива
                    begin
                       if NodeType = catalog then                                 //если мы искали каталоги
                          begin
                             new(PCatalogData);                                   //то выделяем память под данные каталога
                             PCatalogData.id := IBQuery1.Fields[0].AsInteger;     //тут надо так
                             PCatalogData.name := IBQuery1.Fields[1].AsString;    //и ни как иначе
                             PCatalogData.NodeType := NodeType;                   //тип узла(каталог)
                             nodes[i] := PCatalogData;                            //запиливаем указатель в массив
                          end else
                          begin
                             new(PData);                                          //выделяем память под данные для железяки
                             PData.imei := IBQuery1.Fields[0].AsString;           //тут надо так
                             PData.numb := IBQuery1.Fields[1].AsInteger;          //номер железяки на шлюзе
                             PData.name := IBQuery1.Fields[2].AsString;           //и ни как иначе
                             PData.dev_type := IBQuery1.Fields[3].AsInteger;      //тип железяки
                             PData.NodeType := NodeType;                          //тип узла
                             nodes[i] := PData;                                   //запиливаем указатель в массив
                          end;
                       IBQuery1.Next;                                             //переходим к следующей записи
                    end;
                 for i := 0 to Length(nodes)-1 do                                 //цикл похож на предыдущий но их нельзя объединять
                    begin                                                         //не в коем случае!
                       if NodeType = catalog then                                 //если создаём узел-каталог
                          begin
                             PCatalogData := nodes[i];                            //берём указатель на данные
                             node_ := TreeView1.Items.AddChild(parent,PCatalogData.name);//создаём новый узел с указанным родителем ес он есть
                             TreeView1.items[node_.Index].Data := PCatalogData;   //запиливаем указатель на данные в свойство узла
                             MyAddNode(node_,PCatalogData.id,NodeType);           //рекурсивно вызываем эту же процедуру для добавления дочерних узлов-каталогов
                             MyAddNode(node_,PCatalogData.id,device);             //рекурсивно вызываем эту же процедуру для добавления дочерних узлов-железяк
                          end else                                                //иначе создаём узел-железяку
                             begin
                                 PData := nodes[i];                               //берём указатель на данные
                                 node_ := TreeView1.Items.AddChild(parent,PData.name);//создаём новый узел с указанным родителем ес он есть
                                 TreeView1.items[node_.Index].Data := PData;      //запиливаем указатель на данные в свойство узла
                          end;
                    end;
                  nodes := nil;                                                   //на всякий случай освобождаем память от массива(вообще это происходит автоматически)
              end;
end;

          if IBQuery1.Fields[0].AsString <> '' then                               //если запрос вернул нам что-то
              begin
//                 n := IBQuery1.RecordCount;                                       //берём количество записей(его приходится писать в переенную потому чт на последней итерации оно увеличивается)
//                 SetLength(nodes,n);                                              //выделяе память под массив для хранения данных об узлах
                // showmessage(inttostr(Length(nodes)));
//                 for i := 0 to Length(nodes)-1 do                                 //хреначим на всю длинну массива
                    i := 0;
                    while not IBQuery1.Eof do
                    begin
                      SetLength(nodes,Length(nodes)+1);
                       if NodeType = catalog then                                 //если мы искали каталоги
                          begin
                             new(PCatalogData);                                   //то выделяем память под данные каталога
                             PCatalogData.id := IBQuery1.Fields[0].AsInteger;     //тут надо так
                             PCatalogData.name := IBQuery1.Fields[1].AsString;    //и ни как иначе
                             PCatalogData.NodeType := NodeType;                   //тип узла(каталог)
                             nodes[i] := PCatalogData;                            //запиливаем указатель в массив
                          end else
                          begin
                             new(PData);                                          //выделяем память под данные для железяки
                             PData.imei := IBQuery1.Fields[0].AsString;           //тут надо так
                             PData.numb := IBQuery1.Fields[1].AsInteger;          //нопер железяки на шлюзе
                             PData.name := IBQuery1.Fields[2].AsString;           //и ни как иначе
                             PData.dev_type := IBQuery1.Fields[3].AsInteger;      //тип железяки
                             PData.NodeType := NodeType;                          //тип узла
                             nodes[i] := PData;                                   //запиливаем указатель в массив
                          end;
                       IBQuery1.Next;                                             //переходим к следующей запси
                       inc(i);
                    end;