Pfad einer TreeView-Node als AnsiString zurückgeben

AnsiString TForm1::GetNodePath(TTreeNode *Node)
{
    TTreeNode *TempNode;
    AnsiString Temp = "";
    AnsiString sRetStr = TempNode->Text;

    TempNode = Node;

    while (TempNode->Parent)
    {
        Temp = "" + sRetStr;
        TempNode = TempNode->Parent;
        sRetStr = TempNode->Text + Temp;
    }

    return sRetStr;
}