diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp
index 2f2b7561cd..1a6c20b512 100644
--- a/lcl/extctrls.pp
+++ b/lcl/extctrls.pp
@@ -873,7 +873,6 @@ type
     procedure CMBiDiModeChanged(var Msg: TLMessage); message CM_BIDIMODECHANGED;
     procedure CMVisibleChanged(var Msg: TLMessage); message CM_VISIBLECHANGED;
     procedure CMEnabledChanged(var Msg: TLMessage); message CM_ENABLEDCHANGED;
-    procedure CMFontChanged(var Message: TLMessage); message CM_FONTCHANGED;
     procedure CreateInternalLabel; virtual;
   public
     constructor Create(TheOwner: TComponent); override;
diff --git a/lcl/include/customlabelededit.inc b/lcl/include/customlabelededit.inc
index f254ff8bd1..497b6e2a11 100644
--- a/lcl/include/customlabelededit.inc
+++ b/lcl/include/customlabelededit.inc
@@ -127,12 +127,6 @@ begin
     FEditLabel.Enabled:=Enabled;
 end;
 
-procedure TCustomLabeledEdit.CMFontChanged(var Message: TLMessage);
-begin
-  FEditLabel.Font.Assign(Font);
-  Invalidate;
-end;
-
 constructor TCustomLabeledEdit.Create(TheOwner: TComponent);
 begin
   inherited Create(TheOwner);