diff --git a/src/ce_main.lfm b/src/ce_main.lfm
index 7bb7ee45..91a5ef0d 100644
--- a/src/ce_main.lfm
+++ b/src/ce_main.lfm
@@ -1468,7 +1468,7 @@ object CEMainForm: TCEMainForm
   OnCloseQuery = FormCloseQuery
   OnDropFiles = FormDropFiles
   ShowHint = True
-  LCLVersion = '1.6.2.0'
+  LCLVersion = '1.6.4.0'
   object mainMenu: TMainMenu
     Images = imgList
     top = 1
diff --git a/src/ce_main.pas b/src/ce_main.pas
index 49ac231a..800f07f7 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -22,11 +22,6 @@ type
 
   TCEApplicationOptions = class;
 
-  TAnchorDockSplitterEx = class(TAnchorDockSplitter)
-  public
-    property OnMouseWheel;
-  end;
-
   TAsyncWait = (awNo, awYes, awCustom);
 
   TRunnableToFolderCondition = (
@@ -1348,7 +1343,6 @@ begin
   accept := GetKeyShiftState = [ssCtrl];
 end;
 
-//TODO-cdocking: remove the usage of TAnchorDockSplitterEx from Laz 1.8 RC1 (OnMouseWheel public)
 procedure TCEMainForm.DockSplitterMw(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
 var
   offs: integer;
@@ -1384,10 +1378,10 @@ begin
         if site is TAnchorDockHostSite then
         begin
           if TAnchorDockHostSite(site).BoundSplitter.isNotNil then
-            TAnchorDockSplitterEx(TAnchorDockHostSite(site).BoundSplitter).OnMouseWheel:=@DockSplitterMw;
+            TSplitter(TAnchorDockHostSite(site).BoundSplitter).OnMouseWheel:=@DockSplitterMw;
         end
         else if site is TAnchorDockSplitter then
-          TAnchorDockSplitterEx(TAnchorDockSplitter(site)).OnMouseWheel:=@DockSplitterMw;
+          TSplitter(TAnchorDockSplitter(site)).OnMouseWheel:=@DockSplitterMw;
       end;
   end;
 end;