anchor.diff:      function CanShowAllies: Boolean;
       procedure UpdateMessageImages;
       procedure UpdateReplayBar;
  +
  +    function CanHandleKey(Key: Word; Shift: TShiftState): Boolean;
  +    function SpeedChangeAllowedInMP: Boolean;
     protected
       Sidebar_Top: TKMImage;
       Sidebar_Middle: TKMImage;
  
positive.code: begin
    aHandled := True; // assume we handle all keys here
  
    if GameOnPause then
    begin
      if Key = gResKeys[kfPause] then
      begin
        SetPause(False);
        Exit;
      end;
  
      if IsKeyBlockedOnPause(Key) then
        Exit;
    end
    else
    if gGame.IsWaitingForNetwork and IsKeyBlockedOnPause(Key) then
      Exit;
  
    if fMyControls.KeyUp(Key, Shift) then Exit;
  
  
negative.code:     Exit;
    end;
  
    keyHandled := False;
    inherited KeyDown(Key, Shift, keyHandled);
    if keyHandled then Exit;
  
  