function TTree.LeftRightMiddle(Node: PNode): TValues;
var
    Values, LeftValues, RightValues: TValues;
begin
    Values := [];
    if Node <> nil then
        Values := Concat(LeftRightMiddle(Node.Left), LeftRightMiddle(Node.Right), [Node.Value]);
    Result := Values;
end;