Анимация текста

int WLabel=-1,HLabel=-1;
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  POINT pnt;
 
  if(WLabel==-1)
  {
    Timer1->Interval=10;
    WLabel=Label1->Width;HLabel=Label1->Height;
  }
  GetCursorPos(&pnt);
  pnt=this->ScreenToClient(pnt);
  if(
    Label1->Left<=pnt.x&&pnt.x<Label1->Left+Label1->Width&&
    Label1->Top<=pnt.y&&pnt.y<Label1->Top+Label1->Height
  )
  {
    Label1->Width+=2;Label1->Height+=2;
    Label1->Left--;Label1->Top--;
    Label1->Font->Size++;
  }
  else
  {
    Label1->Width-=2;Label1->Height-=2;
    if(Label1->Width<WLabel)
    {
      Label1->Width=WLabel;Label1->Height=HLabel;
    }
    else
    {
      Label1->Left++;Label1->Top++;
      Label1->Font->Size--;
    }
  }
}

void __fastcall TForm1::Label1MouseEnter(TObject *Sender)
{
    hover = true; // Эту переменную описать в классе формы или глобально
}
 
void __fastcall TForm1::Label1MouseLeave(TObject *Sender)
{
    hover = false;
}
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    if(hover)
    {
        if(Label1->Font->Size < 30) // Больше 30 пунктов шрифт изменяться не будет
        {
            Label1->Font->Size += 1;
            Label1->Top = Label1->Tag - Label1->Height; // восстановление нижней границы лейбла
        }
    }
    else
    {
        if(Label1->Font->Size > 8) // Соответственно, меньше 8 - тоже не будет
        {
            Label1->Font->Size -= 1;
            Label1->Top = Label1->Tag - Label1->Height; // восстановление нижней границы лейбла
 
        }
    }
}
 
// Для того, чтобы высота лейбла увеличивалась вверх - запомним нижнюю границу:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Label1->Tag = Label1->Top + Label1->Height;
}