[roman]

Pues debe ser algo como esto:

Código Delphi [-]
var
  Nodo: TTreeNode;
  Ruta: String;

begin
  Ruta := '';

  if Assigned(TreeView1.Selected) then
  begin
    Nodo := TreeView1.Selected;
    Ruta := Nodo.Text+ '\' + Ruta;

    while Assigned(Nodo.Parent) do
    begin
      Nodo := Nodo.Parent;
      Ruta := Nodo.Text+ '\' + Ruta;
    end;
  end;
end;

LineComment Saludos