procedure TForm1.NeuerTab1Click(Sender: TObject);
var WB:TWebbrowser; Tab:TTabsheet;
begin
Tab := TTabsheet.Create(self);
Tab.PageControl := PageControl1;
Tab.Caption := 'Tab ' + IntToStr(PageControl1.PageCount);
Tab.Name := 'TabSheet' + IntToStr(PageControl1.PageCount);
PageControl1.ActivePage := Tab;
WB := TWebbrowser.Create(self);
TControl(WB).Parent := Tab;
TControl(WB).Name := 'Webbrowser' + IntToStr(PageControl1.PageCount);
WB.Visible := true;
WB.Anchors := [akLeft,akTop,akRight,akBottom];
WB.Left := 3;
WB.Top := 3;
WB.Height := Tab.Height - 6;
WB.Width := Tab.Width - 6;
end;