diff --git a/lcl/lcltype.pp b/lcl/lcltype.pp
index 47cb144c09..f5a2e78ba3 100644
--- a/lcl/lcltype.pp
+++ b/lcl/lcltype.pp
@@ -3040,12 +3040,8 @@ end;
 
 function KeyToShortCut(const Key: Word; const Shift: TShiftState): TShortCut;
 begin
+  if (Key and $FF00) <> 0 then exit(0);
   Result := Key;
-  if (Result and $FF00) <> 0 then begin
-    Result:=0;
-    exit;
-  end;
-
   if ssShift in Shift then Inc(Result,scShift);
   if ssCtrl in Shift then Inc(Result,scCtrl);
   if ssAlt in Shift then Inc(Result,scAlt);