diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 4c85e636fa..ac2b4b6127 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -4008,7 +4008,7 @@ begin
     QtKey_Flip,
     QtKey_unknown: Result := VK_UNKNOWN;
   else
-    if AKey <= $FF then // Qt:AKey = VK_KEY in many cases
+    if AKey in [0..255] then // Qt:AKey = VK_KEY in many cases
       Result := AKey
     else
     if AText <> '' then