RealICQClient/Includes/DelphiChromiumembedded/demos/mydemo/Project2.dpr

program Project2;

uses
  Vcl.Forms,
  ceflib,
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

procedure RegisterSchemes(const registrar: ICefSchemeRegistrar);
begin
  registrar.AddCustomScheme('local', True, True, False);
end;

begin
  CefCache := 'Cache';
  CefLocale := 'es';
  CefOnRegisterCustomSchemes := RegisterSchemes;
  CefSingleProcess := False;
  if not CefLoadLibDefault then
    Exit;
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm2, Form2);
  Application.Run;

end.