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

誰能幫我看一下這個TreeView的取值有什麼問題
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;


[解决办法]
Result := (N.Text) + '^ '
[解决办法]
:)
[解决办法]

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;