diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp
index 099399e26f..dd12532598 100644
--- a/lcl/extctrls.pp
+++ b/lcl/extctrls.pp
@@ -945,7 +945,6 @@ type
     procedure RealSetText(const Value: TCaption); override;
     procedure Paint; override;
     procedure UpdateParentColorChange;
-    Function CanTab: Boolean; override;
   public
     constructor Create(TheOwner: TComponent); override;
     property Align default alNone;
diff --git a/lcl/include/custompanel.inc b/lcl/include/custompanel.inc
index d99d878d28..85c7b8015c 100644
--- a/lcl/include/custompanel.inc
+++ b/lcl/include/custompanel.inc
@@ -126,11 +126,6 @@ begin
   inherited Paint;
 end;
 
-function TCustomPanel.CanTab: Boolean;
-begin
-  Result:=false;
-end;
-
 procedure TCustomPanel.AdjustClientRect(var Rect: TRect);
 var
   BevelSize: Integer;