Oberste Node in TreeView finden

[Yheeky]

Hi,

ich habe mir eine Funktion "GetParentNode" geschrieben, die aus einer Baumstruktur den obersten Parent ermitteln soll. Ich habe zwei Lösungen versucht, aber beide liefern nicht das gewünschte Ergebnis. Ich kann den Fehler leider nicht finden.

Hier meine beiden Varianten:

Delphi-Quellcode:

function GetNodeParent(Node: TTreeNode): TTreeNode;
var
  tempNode: TTreeNode;
begin
  // Übergebene Node als TempNode festlegen
  tempNode := Node;

  if tempNode.Parent <> nil then
    GetNodeParent(tempNode.Parent);

  result := tempNode;
end;

Delphi-Quellcode:

function GetNodeParent(Node: TTreeNode): TTreeNode;
var
  tempNode: TTreeNode;
begin
  // Übergebene Node als TempNode festlegen
  tempNode := Node;

  while tempNode.Parent <> nil do
    tempNode := tempNode.Parent;

  result := tempNode;
end;

Kann mir jemand helfen?