Internet Browser mit Delphi: unbegrenzt viele Registerkarten zur Laufzeit

[Luckie]

Jetzt habe ich mir die Mühe gemacht, jetzt will ich auch noch mal:

Delphi-Quellcode:

procedure TForm1.btnAddTabClick(Sender: TObject);
var
  ts: TTabSheet;
begin
  ts := TTabSheet.Create(nil);
  ts.Caption := IntToStr(pgcTest.PageCount) + '. Sheet';
  ts.PageControl := pgcTest;
  pgcTest.ActivePageIndex := pgcTest.PageCount - 1;
end;

procedure TForm1.btnRemoveTabClick(Sender: TObject);
var
  ts: TTabSheet;
begin
  ts := pgcTest.ActivePage;
  ts.Free;
end;