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