diff --git a/lcl/controls.pp b/lcl/controls.pp
index e7dd4a3e5a..7ef8f0569c 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -1932,7 +1932,7 @@ type
     procedure AddControl; virtual; // tell widgetset
     procedure InsertControl(AControl: TControl);
     procedure InsertControl(AControl: TControl; Index: integer); virtual;
-    procedure RemoveControl(AControl: TControl);
+    procedure RemoveControl(AControl: TControl); virtual;
     procedure Repaint; override;
     procedure Update; override;
     procedure SetFocus; virtual;