TabControl кнопки закрытия

   SpeedButton1->Parent = TabControl1;
   SpeedButton1->Top =  3;
   SpeedButton1->Left = TabControl1->TabWidth-23 ;

const int size = 8;
 
void __fastcall TForm1::TabControl1DrawTab(TCustomTabControl *Control, int TabIndex,
          const TRect &Rect, bool Active)
{
    TCanvas *canv = Control->Canvas;
    canv->FillRect(Rect);
 
    canv->Brush->Color = clBtnFace;
    String AText = ((TTabControl*)Control)->Tabs->Strings[TabIndex];
    TPoint APoint;
    APoint.x = (Rect.Right - Rect.Left) / 2 - canv->TextWidth(AText) / 2;
    APoint.y = (Rect.Bottom - Rect.Top) / 2 - canv->TextHeight(AText) / 2;
    canv->TextRect(Rect, Rect.Left + APoint.x, Rect.Top + APoint.y, AText);
 
    // Можешь рисовать что-то более навороченное
    canv->Brush->Color = clRed;
    TRect r = Classes::Rect(Rect.Right - size - 4, Rect.Top + 2, Rect.Right - 2, Rect.Top + size + 4);
    canv->Pen->Color = clWhite;
    canv->Rectangle(r);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::TabControl1MouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
{
    TTabControl *tc = dynamic_cast<TTabControl*>(Sender);
    if(Button == mbLeft)
    {
        TPoint mousePos;
        GetCursorPos(&mousePos);
        TTCHitTestInfo hti;
        hti.pt = tc->ScreenToClient(mousePos);
 
        int ret = SendMessage(tc->Handle, TCM_HITTEST, 0, (LPARAM)&hti);
        if(hti.flags & TCHT_ONITEM)
        {
            if(tc->TabIndex == ret)
            {
                TRect r = tc->TabRect(tc->TabIndex);
                if(PtInRect(Rect(r.Right - size - 4, r.Top + 2, r.Right - 2, r.Top + size + 4),
                            hti.pt)) // Здесь делай с табом все, что захочешь...
                {
                    ShowMessage("close tab #"  + IntToStr(ret) + " ...");
                }
            }
        }
    }
}