新人请问一个treeview有关问题

新人请教一个treeview问题
怎么取得 一个子节点 在treeview中的完整路径
如：
主目录
        子目录1
        子目录2
        子目录3
                子目录1
                          节点牛牛
                子目录2
                          节点羊羊

我想取得 节点羊羊或者节点牛牛 的完整路径

请教各位大牛，应该怎么获取。。
------解决方案--------------------
Function GetNodePath(Node: TTreeNode): WideString;
Var
  aTempNode: TTreeNode;
  aPathList: TStringList;
Begin
  aPathList := TStringList.Create;
  aPathList.Delimiter := '\';
  Try
    aTempNode := Node;
    While Assigned(aTempNode) Do
    Begin
      aPathList.Insert(0, aTempNode.Text);
      aTempNode := aTempNode.Parent;
    End;
  Finally
    Result := aPathList.DelimitedText;
    FreeAndNil(aPathList);
  End;
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
  Application.MessageBox(PChar(GetNodePath(self.TreeView1.Selected)), '', 64);
End;