Создать браузер с вкладками

//создание вкладки
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 newtab=new TTabSheet(this);
 newtab->PageControl=PageControl1;
 newtab->Name = AnsiString("TabSheet")+IntToStr(PageControl1->PageCount+1);
 newtab->Caption="Открытка!";
 
 newbrowzer[nomer] = new TCppWebBrowser(PageControl1);  //выделяем память и объясняем куда хотим вставить новый компонент
 newbrowzer[nomer]->TOleControl::Parent = newtab; //поясняем, куда конкретно вставить
 newbrowzer[nomer]->TOleControl::Name = AnsiString("CppWebBrowser")+IntToStr(PageControl1->PageCount+1); //даем системное имя
 newbrowzer[nomer]->TOleControl::Align=alClient;
 nomer++;
 
}

//удаление активной вкладки
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  delete PageControl1->Pages[PageControl1->ActivePageIndex];
  //delete PageControl1->ActivePage;
}

void __fastcall TForm1::ComboBox1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
 
{
if(Key==VK_RETURN)
{
newbrowzer[PageControl1->ActivePageIndex]->Navigate(StringToOleStr(ComboBox1->Text)); //Загружаем страницы
ComboBox1->Items->Add(ComboBox1->Text);  //Добавляем использованные адреса
newtab->Caption = ComboBox1->Text; //присвоить вкладке имя интернет странички
}
}

newbrowzer[PageControl1->ActivePageIndex]->Navigate(StringToOleStr(ComboBox1->Text));

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TTabSheet *newtab=new TTabSheet(this);
    newtab->PageControl=PageControl1;
    newtab->Caption="Открытка!";
 
    TCppWebBrowser *cppwb = new TCppWebBrowser(PageControl1);  //выделяем память и объясняем куда хотим вставить новый компонент
    newtab->Tag = reinterpret_cast<int>(cppwb);
    cppwb->TOleControl::Parent = newtab; //поясняем, куда конкретно вставить
    cppwb->TOleControl::Name = AnsiString("CppWebBrowser")+IntToStr(PageControl1->PageCount+1); // Это не обязательно имя
    cppwb->TOleControl::Align=alClient;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ComboBox1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
    if(Key==VK_RETURN)
    {
        TTabSheet *ts = PageControl1->ActivePage;
        reinterpret_cast<TCppWebBrowser*>(ts->Tag)->Navigate(StringToOleStr(ComboBox1->Text));
        ComboBox1->Items->Add(ComboBox1->Text);  //Добавляем использованные адреса
        ts->Caption = ComboBox1->Text; //присвоить вкладке имя интернет странички
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  delete PageControl1->ActivePage;
}

AnsiString Url = ParamStr(1);