diff --git a/components/lazcontrols/extendedtabcontrols.pas b/components/lazcontrols/extendedtabcontrols.pas
index 4f4d31ae97..23c8730534 100644
--- a/components/lazcontrols/extendedtabcontrols.pas
+++ b/components/lazcontrols/extendedtabcontrols.pas
@@ -18,7 +18,7 @@ type
   protected
     FVertical: Boolean;
     function IsVertical: Boolean; override;
-    procedure GetChildren({%H-}Proc: TGetChildProc; Root: TComponent); override;
+    procedure GetChildren({%H-}Proc: TGetChildProc; {%H-}Root: TComponent); override;
     procedure Loaded; override;
   public
     constructor Create(TheOwner: TComponent); override;