Chromium динамическое создание

[andrejjka]

Всем здравствуйте.
Проблема в следующем. На форме лежит PageControl. На первой вкладке лежит Chromium1. В основном потоке программы вызываю создание Chromium на второй вкладке, когда срабатывает Beforepopup пытаюсь в него передать ссылку. Процедура создания выполняется, но при передачи ему ссылки программа вылетает, если вторая вкладка при этом не активна (с активной вкладной все работает). В чем проблема?

  public
    FCurrentURL,temp : ustring;

{$R *.dfm}

var
  PopupChromium:tchromium;

...

procedure TForm1.CreateChromium;
var browser:tchromium;
begin

  Addlog('Form1.CreateChromium - Начинаем создавать браузер');
  browser:=tchromium.Create(self);
  browser.Parent:=Form1.TabSheet4;
  browser.Align:=alclient;
  browser.tag:=10;
  browser.OnClose:=ChromiumClose;
  browser.OnLoadEnd:=ChromiumLoadEnd;
  browser.OnJsdialog:=ChromiumJsdialog;
  PopupChromium:=browser;
  Addlog('Form1.CreateChromium - Браузер создан');

end;


procedure TForm1.CheckNewTask;
begin

      FCurrentURL:='www*';
      form1.CreateChromium;
end;

procedure TForm1.Chromium1BeforePopup(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
  targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition;
  userGesture: Boolean; var popupFeatures: TCefPopupFeatures;
  var windowInfo: TCefWindowInfo; var client: ICefClient;
  var settings: TCefBrowserSettings; var noJavascriptAccess: Boolean;
  out Result: Boolean);
begin

   result:=true;
    if (sender as tchromium).Name = 'Chromium1' then
      begin
        addlog('Ссылка отправлена в PopupChromium: '+FCurrentURL);

        PopupChromium.Load(FCurrentURL);
      end;
end;