在treeview里如何返回被点击项的所有上层项？

Question

A_
  |___A1
  |___A2
      |____A21
      |____A22点击A22返回A2和A

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  Node,fatherNode  : TtreeNode;
begin
  Node :=TreeView1.Selected;
  if Assigned(Node) then
  begin
    fatherNode :=node.Parent;
    while Assigned(fatherNode) do
    begin
      showmessage(fatherNode.Text);
      fatherNode :=fatherNode.Parent;
    end;
  end;
end;

Answer 2

showmessage(inttostr(TreeView1.Selected.Level));