diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index b3d6c0b501..d36ea1d073 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -2778,7 +2778,7 @@ type
   protected
     function GetOwner: TPersistent; override;
   public
-    constructor Create(AnOwner: TTreeNodes);
+    constructor Create(AnOwner: TTreeNodes); virtual;
     destructor Destroy; override;
     function AlphaSort: Boolean;
     function Bottom: integer;