请高手解答！！！！！！！！！！

Question

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
temp1,temp2:integer;
begin
  temp1:=Treeview1.Selected.AbsoluteIndex;
  temp2:=TreeView1.Selected.GetNextSibling.AbsoluteIndex;
end;为什么运行这个代码会出现地址访问冲突！！Access Violations

Answer 1

if TreeView1.Selected.GetNextSibling <> nil then
  temp2:=TreeView1.Selected.GetNextSibling.AbsoluteIndex
else
  temp2 := -1;

Answer 2

你可能访问了一个不存在的结节，如： temp1:=Treeview1.Selected.AbsoluteIndex;
  temp2:=TreeView1.Selected.GetNextSibling.AbsoluteIndex;
{第二句中GetNextSibling访问的就是一个不存在的节点}