anchor.diff:  
     with Message do
       case Msg of
  -      WM_ACTIVATE, WM_SETFOCUS, WM_KILLFOCUS:
  +      WM_SETFOCUS:
  +        if Assigned(cef) then
  +          cef.SetFocus;
  +      WM_ACTIVATE:
           begin
  -          if Assigned(cef) then
  +          if (Message.WParam <> 0) and Assigned(cef) then
               cef.SetFocus;
           end;
       end;
  
positive.code:     procedure WMUser_ContentRender(var Message: TMessage); message WM_USER_ContentRender;
      procedure DownloadUILanguages;
      procedure ContributeUILanguages;
      procedure cefLoadEnd(Sender: TObject);
      procedure cefBeforeBrowse(Sender: TObject; const Url: string; wasHandled: Boolean);
      procedure cefBeforeBrowseSync(Sender: TObject; const Url: string;
        out Handled: Boolean);   // I4989
      procedure cefPreKeySyncEvent(Sender: TObject; e: TCEFHostKeyEventData; out isShortcut, Handled: Boolean);
      procedure cefKeyEvent(Sender: TObject; e: TCEFHostKeyEventData; wasShortcut, wasHandled: Boolean);
      procedure cefCommand(Sender: TObject; const command: string;
        params: TStringList);
      procedure cefResizeFromDocument(Sender: TObject; awidth, aheight: Integer);
      procedure cefHelpTopic(Sender: TObject);
    protected
      cef: TframeCEFHost;
  
      procedure FireCommand(const command: WideString; params: TStringList); virtual;
      function ShouldProcessAllCommands: Boolean; virtual;
  
negative.code: 
  procedure TfrmWebContainer.SetFocus;  // I2720
  begin
    if Assigned(cef) then
      cef.SetFocus;
  end;
  
  function TfrmWebContainer.ShouldProcessAllCommands: Boolean;
  