anchor.diff:    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;
  
positive.code: 
      procedure CreateBrowser;
      procedure Navigate; overload;
    public
      procedure SetFocus; override;
      procedure StartClose;
  
negative.code: procedure TframeCEFHost.FormShow(Sender: TObject);
  begin
    inherited;
    PostMessage(Handle, CEF_SHOW, 0, 0);
  end;
  
  procedure TframeCEFHost.CEFShow(var message: TMessage);
  begin
    CreateBrowser;
  end;
  
  