Index: lcl/include/customsplitter.inc
===================================================================
--- lcl/include/customsplitter.inc	(revision 9377)
+++ lcl/include/customsplitter.inc	(working copy)
@@ -557,8 +557,8 @@
   procedure FindNearerControl(CurValue, Limit: integer);
   begin
     if (CurValue<=Limit)
-    and ((Result=nil) or (BestValue>CurValue)) then begin
-      BestValue:=CurValue;
+    and ((Result=nil) or (BestValue>Abs(CurValue))) then begin
+      BestValue:=Abs(CurValue);
       Result:=CurControl;
     end;
   end;