anchor.diff:  
       procedure CreateBrowser;
       procedure Navigate; overload;
  +    procedure CEFShow(var message: TMessage); message CEF_SHOW;
     public
       procedure SetFocus; override;
       procedure StartClose;
  
positive.code: procedure TframeCEFHost.FormShow(Sender: TObject);
  begin
    inherited;
    CreateBrowser;
  end;
  
  
negative.code:   CEF_DESTROY = WM_USER + 300;
    CEF_AFTERDESTROY = WM_USER + 301;
    CEF_AFTERCREATE = WM_USER + 302;
    CEF_SHOW = WM_USER + 303;
  
  type
    TCEFHostBeforeBrowseEvent = procedure(Sender: TObject; const Url: string; out Result: Boolean) of object;
  