diff --git a/lcl/interfaces/wince/wincewsextctrls.pp b/lcl/interfaces/wince/wincewsextctrls.pp
index 48a2cb0d26..9b59a6a81d 100644
--- a/lcl/interfaces/wince/wincewsextctrls.pp
+++ b/lcl/interfaces/wince/wincewsextctrls.pp
@@ -573,13 +573,15 @@ end;
 
 { TWinCEWSCustomSplitter }
 
-class procedure TWinCEWSCustomSplitter.DrawSplitter(const ASplitter: TCustomSplitter
-  );
+class procedure TWinCEWSCustomSplitter.DrawSplitter(const ASplitter: TCustomSplitter);
+var
+  ARect: TRect;
 begin
-  // TODO: beveled
-  LCLIntf.DrawSplitter(ASplitter.Canvas.Handle,
-                       Rect(0,0,ASplitter.Width,ASplitter.Height),
-                       ASplitter.ResizeAnchor in [akTop,akBottom]);
+  if ASplitter.Beveled then
+  begin
+    ARect := Rect(0, 0, ASplitter.Width, ASplitter.Height);
+    Frame3D(ASplitter.Canvas.Handle, ARect, 1, bvRaised);
+  end;
 end;
 
 initialization