誰能幫我看一下這個TreeView的取值有什麼問題

Question

function GetSectFromTree(Node: TTreeNode): string;
var
  N: TTreeNode;
begin
  if Node = nil then
    result := ''
  else
    if Node.HasChildren then
    begin
      N := Node.getFirstChild;
      while N <> nil do
      begin
        result := Result + GetSectFromTree(N);
        N := Node.GetNextChild(N);
      end;
    end
    else
      Result := (Node.Text) + '^';
end;

Answer 1

Result := (N.Text) + '^'

Answer 2

function GetSectFromTree(Node: TTreeNode): string;
var
  N: TTreeNode;
begin
  if Node = nil then
    result := ''
  else
    if Node.HasChildren then
    begin
      N := Node.getFirstChild;
      while N <> nil do
      begin
        result :=  GetSectFromTree(N);
        N := Node.GetNextChild(N);
      end;
    end
    else
      Result :=Result + (Node.Text) + '^';
end;

Answer 3

function GetSectFromTree(Node: TTreeNode): string;
var
  N: TTreeNode;
begin
  if Node = nil then
    result := ''
  else
  begin 
    Result := (Node.Text) + '^';
    if Node.HasChildren then
    begin
      N := Node.getFirstChild;
      while N <> nil do
      begin
        result := Result + GetSectFromTree(N);
        N := Node.GetNextChild(N);
      end;
    end;
 end;