diff --git a/lcl/interfaces/qt/qtlclintf.inc b/lcl/interfaces/qt/qtlclintf.inc
index 7dd9ae2eb0..7ddf239261 100644
--- a/lcl/interfaces/qt/qtlclintf.inc
+++ b/lcl/interfaces/qt/qtlclintf.inc
@@ -160,7 +160,7 @@ begin
   if ACursor > crHigh then Exit;
 
   // TODO: map is better
-  case TCursor(ACursor) of
+  case ACursor of
     crNone      : CursorShape := QtBlankCursor;
     crArrow     : CursorShape := QtArrowCursor;
     crCross     : CursorShape := QtCrossCursor;