Updates

albireo77 · Nov 25, 2018 · c0ed0d1 · c0ed0d1
1 parent f0c7f92
commit c0ed0d1
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Blocks/Base_Block.pas b/Blocks/Base_Block.pas
@@ -1959,7 +1959,10 @@ function TGroupBlock.Remove(ANode: TTreeNode): boolean;
    result := CanRemove;
    if result then
    begin
-      result := RemoveBranch(GetBranchIndexByControl(ANode.Data));
+      if ANode <> nil then
+         result := RemoveBranch(GetBranchIndexByControl(ANode.Data))
+      else
+         result := false;
       if not result then
          result := inherited Remove(ANode);
    end;