FMX TTabControl - TTabItem während der Laufzeit entfernen

[Wiener]

Hallo Leute,

habe zwar gesucht aber leider nur viel über die VCL Komponente gefunden.
Mein Problem ich bekomme die TTabItems einfach nicht vom Control entfernt.
Hat wer eine Lösung oder Tip für mich

Delphi-Quellcode:

if ObjektFrame.TabControlKfzSparte.TabCount >= 0 then
      begin
       for x:= 0 to ObjektFrame.TabControlKfzSparte.TabCount -1 do
         begin
            if Assigned(ObjektFrame.TabControlKfzSparte.Tabs[x]) then
            begin
               ObjektFrame.TabControlKfzSparte.BeginUpdate;
                  ObjektFrame.TabControlKfzSparte.Tabs[x].Free; // RemoveObject(x);
               ObjektFrame.TabControlKfzSparte.EndUpdate;
            end;
         end;
         //ObjektFrame.TabControlKfzSparte.DeleteChildren;
      end;

      for x := 0 to DataModule1.FDQuery_Sonstiges.RecordCount-1 do
      begin
         if DataModule1.FDQuery_Sonstiges.FieldByName('Sparten').AsString <> 'KFZ-Kasko (nur bis inkl. Vers. 212-02 zu verw.)' then
            Temptext:=  DataModule1.FDQuery_Sonstiges.FieldByName('Sparten').AsString
         else
            Temptext:= 'KFZ-Kasko';

         // TabItems der Sparten erstellen
         Ttab:= TTabItem.Create(ObjektFrame);
         Ttab.Parent:= ObjektFrame.TabControlKfzSparte;
         Ttab.Text:= Temptext;
         ObjektFrame.TabControlKfzSparte.BeginUpdate;
            ObjektFrame.TabControlKfzSparte.AddObject(Ttab);
         ObjektFrame.TabControlKfzSparte.EndUpdate;

         DataModule1.FDQuery_Sonstiges.Next;
      end;

      ObjektFrame.TabControlKfzSparte.First();