From 7fa04aed290b8b96e05e241bf3fc0aed592c0101 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 6 Apr 2017 09:27:12 +0000
Subject: [PATCH] lazutils: TAvgLvlTree: made FreeAndDelete virtual safe

git-svn-id: trunk@54537 -
---
 components/lazutils/laz_avl_tree.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/lazutils/laz_avl_tree.pp b/components/lazutils/laz_avl_tree.pp
index 7e8e2996ae..22e67fd527 100644
--- a/components/lazutils/laz_avl_tree.pp
+++ b/components/lazutils/laz_avl_tree.pp
@@ -666,7 +666,7 @@ begin
   OldParent:=ANode;
   while OldParent.Parent<>nil do OldParent:=OldParent.Parent;
   if OldParent<>Root then
-    raise Exception,Create('TAVLTree.Delete'); // not my node
+    raise Exception.Create('TAVLTree.Delete'); // not my node
   {$ENDIF}
   if (ANode.Left<>nil) and (ANode.Right<>nil) then begin
     // ANode has both: Left and Right