program viva_loans;

{$I cef.inc}

uses
  Forms,
  Controls,
  Dialogs,
  Windows,
  SysUtils,
  uCEFApplication,
...
begin

  GlobalCEFApp := TCefApplication.Create;

  GlobalCEFApp.FrameworkDirPath  := 'cef4';
  GlobalCEFApp.ResourcesDirPath  := 'cef4';
  GlobalCEFApp.LocalesDirPath    := 'cef4\locales';
  GlobalCEFApp.EnableGPU         := True;
  //GlobalCEFApp.DisableGPUCache      := True;
  //GlobalCEFApp.cache                := 'cef3\cache';
  //GlobalCEFApp.cookies              := 'cef3\cookies';
  //GlobalCEFApp.UserDataPath         := 'cef3\User Data';
  try
    if not GlobalCEFApp.StartMainProcess
    then Exit;

    Application.Initialize;
    Application.MainFormOnTaskbar := True;

    // 1. Первым создаём дата модуль; 
    // Это мой частный случай, тебе не обязательно так делать;
    Application.CreateForm(TdmMain, dmMain);

    // 2. Cоздаем главную форму приложения;
    Application.CreateForm(TMainForm, MainForm);

    // 3. Запуск приложения;
    Application.Run;
  finally
    GlobalCEFApp.Free;
  end;
end.

cef4\cef.pak
cef4\cef_100_percent.pak
cef4\cef_200_percent.pak
cef4\cef_extensions.pak
cef4\cef_sandbox.lib
cef4\chrome_elf.dll
cef4\d3dcompiler_47.dll
cef4\devtools_resources.pak
cef4\icudtl.dat
cef4\libcef.dll
cef4\libcef.lib
cef4\libEGL.dll
cef4\libGLESv2.dll
cef4\natives_blob.bin
cef4\snapshot_blob.bin
cef4\v8_context_snapshot.bin

Каталоги:
cef4\locales\ и все файлы в нём...
cef4\swiftshader\libEGL.dll
cef4\swiftshader\libGLESv2.dll

unit uFrameUniCEF3;

{$I cef.inc}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls
  , uCEFWindowParent, uCEFChromium, uCEFInterfaces, uCEFConstants
  , uCEFApplication, uCEFTypes, uCEFCookieManager, uCEFWinControl;

  type
  TFrameCEF3 = class(TFrame)
    ChromiumPage: TCEFWindowParent;
    Chromium: TChromium;
    tmrLoadURL: TTimer;
    procedure ChromiumAfterCreated(Sender: TObject; const browser: ICefBrowser);
  private
    FUrl : string;
    IsChromCreated : Boolean;
  public
    procedure LoadURL(AUrl : string);
  published
    {$METHODINFO ON}
    procedure Init(Sender:TObject);overload;
    {$METHODINFO OFF}
  end;

implementation

procedure TFrameCEF3.Init(Sender:TObject);
begin
  // Нужно для корректного создания контекста браузера;
  IsChromCreated := False;
  
  // Связывание TChromium и TCEFWindowParent;
  if not(Chromium.Initialized)
  then begin
    Chromium.CreateBrowser(ChromiumPage, '');
  end;
end;

procedure TFrameCEF3.ChromiumAfterCreated(Sender: TObject; const browser: ICefBrowser);
begin
  IsChromCreated := True;
end;

procedure TFrameCEF3.LoadURL(AUrl: string);
begin
  FUrl := AUrl;

  // Супер кАстыль от разработчиков хрома :-/
  // GlobalCEFApp.GlobalContextInitialized has to be TRUE before creating any browser
  // If it's not initialized yet, we use a simple timer to create the browser later.
  tmrLoadURL.Enabled := True;
end;

procedure TFrameCEF3.tmrLoadURLTimer(Sender: TObject);
begin
  if not IsChromCreated
  then begin
    Chromium.CreateBrowser(ChromiumPage, '');
    Exit;
  end;

  // Остановим таймер;
  TTimer(Sender).Enabled := False;

  // Запустим ссылку в браузере;
  Chromium.LoadURL(FUrl);
end;

initialization
  RegisterClass(TFrameCEF3);

end.