Creates a tree of TCodeTreeNodeExtension sorted with CompareCodeTreeNodeExt Node.Desc = ctnProcedure Node.Txt = ExtractProcHead(Node,Attr)