Bug: First level Node with normal Node(unFixedID)

ProjGather/ProjGatherTree.pas

@@ -338,12 +338,17 @@ function TProjGatherTree.FindNode(AParent: TProjGatherTreeNode;
   const AName: string; APrice: Double): TProjGatherTreeNode;
 var
   iChild: Integer;
-  vChild: TProjGatherTreeNode;
+  vParent, vChild: TProjGatherTreeNode;
 begin
+  if Assigned(AParent) then
+    vParent := AParent
+  else
+    vParent := TProjGatherTreeNode(Root);
+
   Result := nil;
-  for iChild := 0 to AParent.Children.Count - 1 do
+  for iChild := 0 to vParent.Children.Count - 1 do
   begin
-    vChild := TProjGatherTreeNode(AParent.Children.Items[iChild]);
+    vChild := TProjGatherTreeNode(vParent.Children.Items[iChild]);
     if (vChild.Name = AName) and (abs(vChild.Price - APrice) < 0.00001) then
     begin
       Result := vChild;