anchor.diff:      procedure cefSetFocus(Sender: TObject; const browser: ICefBrowser;
         source: TCefFocusSource; out Result: Boolean);
     private
  -    FBlockAllowSetFocus: Integer;
  -
       FApplicationHandle: THandle;
       FNextURL: string;
       FOnLoadEnd: TNotifyEvent;
  
positive.code: procedure TframeCEFHost.cefSetFocus(Sender: TObject; const browser: ICefBrowser;
    source: TCefFocusSource; out Result: Boolean);
  begin
    Result := Boolean(InterlockedExchange(FBlockAllowSetFocus, 0));
  end;
  
  procedure TframeCEFHost.WMEnterMenuLoop(var aMessage: TMessage);
  
negative.code:     Exit;
    end;
  
    cef.LoadURL(FNextURL);
  end;
  
  