void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled)
{
  if(Msg.message == WM_MOUSEMOVE){
     POINT p;
     GetCursorPos(&p);
     if(PtInRect(&(Label1->ClientRect),Label1->ScreenToClient(p))){
       if(Label1->Font->Color!=clBlue){
        Label1->Font->Color=clBlue;
       }
     }else{
       if(Label1->Font->Color!=clBlack){
        Label1->Font->Color=clBlack;
       }
     }
     Handled = true;
  }

}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Application->OnMessage = AppMessage;
}