TChromium динамическое создание в потоке

[D_E_N]

Здравствуйте! Очень нужно создавать браузер TChromium динамически и в потоке, на форме создается без проблем с таким кодом:

procedure TMainForm.Button1Click(Sender: TObject);
var
  Chrome:TChromium;
begin
Chrome:=TChromium.Create(mainform);
Chrome.Parent := mainform;
Chrome.Load('google.ru');
Chrome.Align:=alclient;
end;

в потоке с таким кодом выпадает ошибка Read of address 00000000, и указывает на модуль cefvcl на строку

    FBrowserId := FBrowser.Identifier;

вылетает на

 Chrome.Parent := mainform;

если ставить

Chrome.Parent := mainform.parent

то вообще ничего не происходит поток запускается и останавливается пробовал выставить задержку, но результат тот же.
Подскажите пожалуйста где я ошибся. Заранее спасибо.