Chrometabs1.Tabs.Add;

  Chromium1.Visible:=true;
  Chromium1.Load(URL);
  Panel1.Visible:=false;,
може щось інше застосувати???
можу также само і для перщої вкладки зробить:
procedure TNewsAddForm.ChromeTabs1Click(Sender: TObject);
var i,j:integer;
begin
   if chrometabs1.ActiveTab.Index=0 then
  Begin
      Chromium1.Visible:=false;
      Panel1.Visible:=true;
   end else Begin
   for i:=1 to k1 do
   if chrometabs1.ActiveTab.Index=idGemt[k1] then
       SpeedButton1Click(nil);
   for i:=1 to k2 do
   if chrometabs1.ActiveTab.Index=idGemt[k2] then
       SpeedButton2Click(nil);
      Chromium1.Visible:=true;
      Panel1.Visible:=false;
   end;
end;