TabControl - Destory Sorunu ?

[Mr.Developer]

İyi günler,

TabControl Bileşenin de Bir miktar ( 8 adet ) tab Item Ekledim ve Butonlar vasıtası ile bu Itemlere destory komutunu işletiyorum ( yok etmenin bulduğum en basit yolu ).
Herşey iyi güzelken bir bir yok olurken bazen yok ederken uygulama donuyor komple ve tab'ların miktarını label'de falan gösterirken de donuyor.
bunun sebebi nedir ?

//Her tab'da butonlar var ve hepsinde bu geçerli
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true ;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
TabControl1.ActiveTab.Destroy  ;
TabControl1.TabIndex := RandomRange(0,TabControl1.TabCount);
Timer1.Enabled := false ;
end;

sadece destory komutunu test etmek istedim. 

[ChangeoveR]

FMX 'de de işler VCL 'deki gibi mi bilemem de VCL 'de bu işi şöyle yapabilirsin.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;

  if FindComponent('TabControl1') <> nil then
    if (TabControl1.Tabs.Count >= 0) then
    begin
      TabControl1.TabIndex := Random(TabControl1.Tabs.Count-1);

      if TabControl1.TabIndex in [0..TabControl1.Tabs.Count-1] then
        TabControl1.Tabs.Delete(TabControl1.TabIndex) else
        TabControl1.Destroy;
    end;

end; 

[Mr.Developer]

(17-02-2019, Saat: 13:59)ChangeoveR Adlı Kullanıcıdan Alıntı: FMX 'de de işler VCL 'deki gibi mi bilemem de VCL 'de bu işi şöyle yapabilirsin.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;

  if FindComponent('TabControl1') <> nil then
    if (TabControl1.Tabs.Count >= 0) then
    begin
      TabControl1.TabIndex := Random(TabControl1.Tabs.Count-1);

      if TabControl1.TabIndex in [0..TabControl1.Tabs.Count-1] then
        TabControl1.Tabs.Delete(TabControl1.TabIndex) else
        TabControl1.Destroy;
    end;

end; 

Size çok teşekkür ederim olumlu sonuç ;

kodda birkaç değişiklik ile istediğimi elde ettim.

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;

 if FindComponent('TabControl1') <> nil then
   if (TabControl1.TabCount >= 0) then
   begin
   if TabControl1.TabIndex in [0..TabControl1.TabCount-1] then
   TabControl1.Delete(TabControl1.TabIndex) else
   TabControl1.Destroy;

   TabControl1.TabIndex := Random(TabControl1.TabCount-1);


   end;
end;

[ChangeoveR]

rica ederim.