Stringgrid in Tabbednotebook erstellen

[programmierer]

Mit folgendem Code erzeuge ich eine neue Karte für das Tabbednotebook. Danach kommt noch ein Stringgrid dazu. Allerdings wird das Stringgrid auf der Form (bibofuture) platziert, und nicht auf der aktuellen Karte des Tabbednotebook.
Hier mal der Quellcode:

Delphi-Quellcode:

procedure Tbibofuture.neuerubrikClick(Sender: TObject);
 var kartei:TStringGrid;
begin
 rubrikneu.name.Text:='';
 rubrikneu.ShowModal;
 if rubrikneu.name.Text<>'' then
 begin
  tabbednotebook1.Pages.Add(rubrikneu.name.Text);

  kartei:=TStringgrid.Create(Self);
  kartei.Parent:=bibofuture;
  with kartei do
  begin
   left:=100;
   top:=100;
   width:=800;
   height:=600;
   name:='rubrik'+rubrikneu.name.Text;
  end;

 end;
end;

Meine Frage ist jetzt logischerweise: Wie erzeuge ich das Stringgrid auf der gerade aktiven Karte des Tabbednotebook?