Объединение функций

void __fastcall TForm2::Label1MouseEnter(TObject *Sender)
{
 //При наведении курсора на Метку она меняет цвет
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Label1MouseLeave(TObject *Sender)
{
 //Метка принимает свой первоначальный цвет, когда курсор покидает приделы Метки
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Label1Click(TObject *Sender)
{
 //При нажатии что-то  происходит
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Label1MouseEnter(TObject *Sender)
{
    TLabel *label = (TLabel *)Sender;
    label->Font->Color = clRed;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
      ((TLabel*)Sender)->Font->Color=clBlue;  
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
     for(int i=0;i<ControlCount;i++)
      if(Controls[i]->ClassNameIs("TLabel"))
         ((TLabel*)Controls[i])->Font->Color=clWindowText;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label1Click(TObject *Sender)
{
     String Lb = ((TLabel*)Sender)->Name;
     ShowMessage("Клик на метке "+Lb);
}
//---------------------------------------------------------------------------