Проблема с AddChildObject.

[anGeee]

В программе динамически создаются новые элементы в TreeView. К каждому из узлов я привязываю указатель на объект :

var
   ObjPtr : array[0..9] of PChar;
 {...}  
  for i := 0 to ListBox.Items.Count - 1 do
    begin
      ObjPtr[i] := PChar(ListBox.Items[i]);
      TreeView.Items.AddChildObject(node,ListBox.Items[i],ObjPtr[i]);
    end;
  {...}

Затем проверяю , что получилось

procedure TForm1.TreeViewChanging(Sender: TObject; Node: TTreeNode;
  var AllowChange: Boolean);
begin
  if node.data <> nil then
    Application.MessageBox(node.data,'...',0);
end;

Однако, при нажатии появляется одно и то же сообщение, то есть один объект для всех узлов.. Причем тот который создается последним..

[mihali4]

А что вы ожидали?
Что-то я не наблюдаю смены нодов в процессе присвоения объектов...
Вы зачем-то устроили цикл перебора итемсов листбокса для одной и той же ноды.
А это значит, что объекту ноды будет в конце концов присвоено именно последнее значение...

[anGeee]

Ну я руководствовался тем, что нод в данной ситуации просто указатель на родителя.. То есть, я в цикле создавал потомков для нода, а функция AddChildObject возвращает указатель, которому и будет присвоен объект.. Или мои рассуждения не верны ? ..