program OpenChrome;

uses
  Vcl.Forms,
  uCEFApplication,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
 GlobalCEFApp := TCefApplication.Create;
  if GlobalCEFApp.StartMainProcess then
    begin
    Application.Initialize;
    Application.MainFormOnTaskbar := True;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
    end;
end.

procedure TForm1.Button1Click(Sender: TObject);
begin
  ChromiumWindow1.LoadURL('http://www.rzrgm.cn/zhqian/');
end;

procedure TForm1.FormShow(Sender: TObject);
begin
ChromiumWindow1.CreateBrowser;
end;