anchor.diff:        (GetKeyState(VK_SHIFT) < 0) and
         (UIStatus = duiPaused) then
       UIStatus := duiFocusedForInput
  -  else if (Message.Msg = WM_KEYDOWN) and
  -    (UIStatus in [duiTest, duiFocusedForInput]) then
  +  else if UIStatus in [duiTest, duiFocusedForInput] then
     begin
       Exit(ProcessKeyEvent(Message));
     end
  
positive.code:   end;
  
    case Message.Msg of
      WM_KEYDOWN:
        Handled := HandleMemoKeydown(Message);
      WM_SYSCHAR:
        Handled := FUIDisabled;
  
negative.code: begin
    Assert(Assigned(FDebugCore));
    modifier := 0;
    if GetKeyState(VK_LCONTROL) < 0 then modifier := modifier or KM_KBP_MODIFIER_LCTRL;
    if GetKeyState(VK_RCONTROL) < 0 then modifier := modifier or KM_KBP_MODIFIER_RCTRL;
    if GetKeyState(VK_LMENU) < 0 then modifier := modifier or KM_KBP_MODIFIER_LALT;
    if GetKeyState(VK_RMENU) < 0 then modifier := modifier or KM_KBP_MODIFIER_RALT;
    if GetKeyState(VK_SHIFT) < 0 then modifier := modifier or KM_KBP_MODIFIER_SHIFT;
    if (GetKeyState(VK_CAPITAL) and 1) = 1 then modifier := modifier or KM_KBP_MODIFIER_CAPS;
  
  