[lmikle]

Ну дык и иди вверх пока Parent не станет nil

Код:

function GetRoot(Node : TTreeNode) : String;
begin
  While Node.Parent <> Nil Do
    Node := Node.Parent;
  Result := Note.Text;
end;