(Sender) не работает на Win7!? НА XP и win 8 и win 10 все прекрасно работает!

  data->Sort(); // сортирую список
  zajawka->Sort();
  izpolnitel->Sort();
  rajon->Sort();//
 
    CheckListBox1->Items->Text = data->Text;
    //CheckListBox1->OnMouseEnter = MouseEnter;
    return;
    CheckListBox2->Items->Text = rajon->Text;
    CheckListBox3->Items->Text = zajawka->Text;
    CheckListBox4->Items->Text = izpolnitel->Text;

void __fastcall TForm_List_Rajon::MouseEnter(TObject *Sender)
{
   //ShowMessage("lll");
 
  if (N6->Checked == false) {
  //static
  TCheckListBox *//clb = NULL;
  clb = dynamic_cast <TCheckListBox *> ( Sender );
  clb->Height = 4 + clb->ItemHeight * clb->Items->Count;
 
  if(clb->Tag == 1)
  clb->Width = ComboBox1->Width;
  else
  if(clb->Tag == 2)
  clb->Width = ComboBox2->Width;
  else
  if(clb->Tag == 3)
  clb->Width = ComboBox3->Width;
  else
  if(clb->Tag == 4)
  clb->Width = ComboBox4->Width;
  clb->BringToFront();
                              }
}

void __fastcall TForm_List_Rajon::MouseLeave(TObject *Sender)
{
    if (N6->Checked == false) {
   TCheckListBox *clb// = NULL;
 // clb
   = dynamic_cast <TCheckListBox *> ( Sender );
  clb->Height = clb->ItemHeight;
  clb->Width = 17;
        }                     
}

void __fastcall TForm1::CheckListBoxMouseLeave(TObject *Sender)
{
    TCheckListBox *clb = dynamic_cast<TCheckListBox*>(Sender);
    clb->Height = clb->ItemHeight;
    clb->Width = GetSystemMetrics(SM_CXVSCROLL) + 5;
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
    CheckListBox1->Items->Text = "yyyyy\n uuuuuu\n mmmmm \n dddd";
    CheckListBox1->Width = GetSystemMetrics(SM_CXVSCROLL) + 5;
}

clb->Width = 37;//17;