如何使用tlist 来添加树节点 ？？？？？

Question

程序如下 ：其中tNodelist : tlist
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
        TreeNode : TTreeNode ;
begin
  if htOnStateIcon in TreeView1.GetHitTestInfoAt(X, Y) then
  begin    if (TreeView1.GetNodeAt(X, Y) <> nil) then
    begin
        TreeNodeGetChecked(TreeNode) ;
    end;
   end ;
end ;
procedure TForm1.TreeNodeGetChecked(var mTreeNode: TTreeNode);
begin
        TNodeList.Add(@mTreeNode) ;
end;我发现 每次添加进取的指针都是一个固定值 这说明每次添加进入的对象都是同一个 我都不知道怎么办好了 
请大家给个办法
如何修改这个程序来实现添加不同的树接点到tlist 中

Answer 1

TreeNode : TTreeNode  没有赋值————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

漏了写了 呵呵
begin
  if htOnStateIcon in TreeView1.GetHitTestInfoAt(X, Y) then
  begin
if (TreeView1.GetNodeAt(X, Y) <> nil) then
    begin
加上 treeNode := TreeView1.GetNodeAt(X, Y) ;