Удаление вкладок в PageControl

TList* Tabs;
 
class TPlayList : public TsTabSheet
{
private:
    TsListBox* List;
    TStringList *TracksPathList;
public:
    bool __fastcall GetTracksList(AnsiString fname);
    __fastcall TPlayList(TComponent* Owner);
    __fastcall ~TPlayList();
    static unsigned short Count;
};

__fastcall TPlayList::TPlayList(TComponent* Owner)
    : TsTabSheet(Owner)
{
    ++Count;
    List = new TsListBox(this);
    List->Parent = this;
    TracksPathList = new TStringList;  // размещение песен
    this->Name = "New"+IntToStr(Count);
    this->Caption = "New"+IntToStr(Count);
    this->Parent = MainForm->Pages;
    this->PageControl = MainForm->Pages;
    this->ParentWindow = MainForm->Handle;
}

unsigned short TPlayList::Count = 0;

__fastcall TPlayList::~TPlayList()
{//Специально не уменьшаю Count;
    delete List;
    delete TracksPathList;
}

void __fastcall TMainForm::miCreateClick(TObject *Sender)
{  if (!Tabs)
    Tabs = new TList;
 
    TPlayList* newTab = new TPlayList(Pages);
    Tabs->Add(newTab);
    Pages->TabIndex = Pages->PageCount-1;
}

delete ((TPlayList*)Tabs->Items[i]);

delete Tabs->Items[i];

Tabs->Delete(i);

Tabs[i].Free();

  Pages->Pages[Pages->PageCount-1]->Free();

void __fastcall TForm1::TabSheet1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
      if(X > (PageControl1->Width/2))
    {
         TTabSheet * tnew = new TTabSheet(this);
         tnew->PageControl = PageControl1;
         tnew->Name = "TabSheet"+IntToStr(PageControl1->PageCount);
         tnew->Caption = tnew->Name; 
    }
      else  delete PageControl1->Pages[PageControl1->PageCount-1];
}

class Test {
public:
     int Count; // кол-во вызовов конструктора
}

class Test {
private:
      int iCount; // кол-во вызовов конструктора
public:
      const int & GetCount() const {
              return iCount;
      }
}