anstelle der Recursion geht hier auch einfach eine While-Schleife die solange läuft bis das Node = nil ist und ansonsten vom Node den Parent holt und den Pfad ergänzt.
Delphi-Quellcode:
Pfad := '';
while Assigned(Node) do
begin
Pfad := Node.Text + '\' + Pfad;
Node := Node.Parent;
end;