Как получить адрес свойства объекта?

[Lim]

Поможите плз.
Хочу поставить каждой вершине TTreeView в соответствие Ноды .xml документа.
Вот процедура формирования дерева:

procedure TForm1.LoadItems(TreeNode: TTreeNode; Node: IXMLNode);
  var
    i: integer;
  begin
    TreeNode := XMLTree.Items.AddChild(TreeNode, Node.nodeName);
    TreeNode.Text := Node.NodeName;  
    for i := 0 to Node.childNodes.Count - 1 do
      LoadItems(TreeNode, Node.childNodes.Nodes[i]);
  end;

Реально ли в TreeNode.Data записывать указатель на соответствующий Node и если да, то как?

[Stilet]

А чего нет?

TreeView1.Items[<такой то>].Data:=TreeNode;

[Lim]

Сообщение от Stilet

А чего нет?

TreeView1.Items[<такой то>].Data:=TreeNode;

Видимо я криво сформулировал.
TreeNode: TTreeNode - это узел TreeView1
Node: IXMLNode - узел IXMLDocument
У TreeView1.Items[<такой то>].Data тип поинтер.

Например:
TpNode = ^IXMLNode;
pNode : TpNode;

как в pNode занести адрес допустим Node.childNodes.Nodes[i] ?

[mihali4]

Объявляем:

type
PMyRec = ^TMyRec;
TMyRec = record
  FName, MName: longint;
  LName: string;
  KName: boolean;
end;

Для вашего случая добавите MyNode: TTreeNode;
Используем:

...
New(MyRecPtr);
MyRecPtr^.FName:=TQuestId.Value;
MyRecPtr^.MName:=TQuestIdRazdel.Value;
MyRecPtr^.LName:='Quest';
MyRecPtr^.KName:=False;

Для вашего случая добавляем:
MyRecPtr^.MyNode:=Node.childNodes.N odes[i];