diff --git a/components/exctrls/source/excheckctrls.pas b/components/exctrls/source/excheckctrls.pas
index 3eac8bd75..912de7479 100644
--- a/components/exctrls/source/excheckctrls.pas
+++ b/components/exctrls/source/excheckctrls.pas
@@ -321,12 +321,6 @@ type
     FOnItemEnter: TNotifyEvent;
     FOnItemExit: TNotifyEvent;
     FOnSelectionChanged: TNotifyEvent;
-    procedure ItemEnter(Sender: TObject); virtual;
-    procedure ItemExit(Sender: TObject); virtual;
-    procedure ItemKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); virtual;
-    procedure ItemKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); virtual;
-    procedure ItemKeyPress(Sender: TObject; var Key: Char); virtual;
-    procedure ItemUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char); virtual;
     procedure SetAutoFill(const AValue: Boolean);
     procedure SetColumnLayout(const AValue: TColumnLayout);
     procedure SetColumns(const AValue: integer);
@@ -336,6 +330,12 @@ type
     procedure SetOnGetImageIndex(const AValue: TGetImageIndexEvent);
     procedure SetReadOnly(const AValue: Boolean);
   protected
+    procedure ItemEnter(Sender: TObject); virtual;
+    procedure ItemExit(Sender: TObject); virtual;
+    procedure ItemKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); virtual;
+    procedure ItemKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); virtual;
+    procedure ItemKeyPress(Sender: TObject; var Key: Char); virtual;
+    procedure ItemUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char); virtual;
     procedure UpdateAll;
     procedure UpdateControlsPerLine;
     procedure UpdateInternalObjectList;