Firemonkey - TabItem zur Laufzeit einem TabControl zuweisen

[sintronic86]

Hallo Community,

ich schon wieder!

Und zwar hänge ich jetzt an einem (eigentlich nicht so schweren) Problem.
Ich habe auf meiner Form ein TTabControl. Diesem möchte ich zur Laufzeit beliebig viele TTabItems zuweisen.

Hier mein derzeitiger Code:

Code:

procedure TForm_HF.Button1Click(Sender: TObject);
var TmpTI: TTabItem;
begin
  showmessage(inttostr(TabControl_Checklisten.TabCount));

  TmpTI        := TTabItem.Create(TabControl_Checklisten);
  TmpTI.Parent := TabControl_Checklisten;
  TabControl_Checklisten.AddObject(TmpTI);
  TabControl_Checklisten.ActiveTab := TmpTI;

  showmessage(inttostr(TabControl_Checklisten.TabCount));
end;

Die zweite ShowMessage liefert mir auch das richtige Ergebnis, aber das Item ist nicht zu sehen!
Ich weiß nicht, ob ich noch zusätzliche Einstellungen am Item oder dem Control vornehmen muss.

Vielen Dank schon einmal im Voraus!

Mfg Björn