优化速度编译bug

DataModules/BillsMeasureDm.pas

@@ -638,7 +638,7 @@ var
 begin
   for iIndex := 0 to BillsMeasureTree.Count - 1 do
   begin
-    stnNode := BillsMeasureTree.Items[iIndex];
+    stnNode := TBillsIDTreeNode(BillsMeasureTree.Items[iIndex]);
     if (stnNode.ParentID <> -1) then
       stnNode.Parent.Expanded := stnNode.Rec.B_Code.AsString = '';
   end;