Określenie, który komponent na formularzu jest aktywny

Aktywny komponent formularza jest przechowywany przez właściwość ActiveControl, możemy np. dodać do formularza komponent Timer (z zakładki System) i utworzyć dla niego funkcję obsługującą zdarzenie OnTimer, która będzie wyświetlała na etykiecie Label1 nazwę aktywnego komponentu:

Unit1.cpp

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   Label1->Caption = ActiveControl->Name;
}

albo w tejże funkcji obsługującej zdarzenie OnTimer zmieniać położenie aktywnego komponentu co spowoduje, że będzie się on przesuwał w lewo co jedno "tyknięcie" timera, które jest ustawione w jego właściwości Interval (zapis "JakasLiczba -= LiczbaOdejmowana" oznacza, że od liczby JakasLiczba zostanie odjęta liczba LiczbaOdejmowana, jest to tylko skrót, równie dobrze możnaby napisać "JakasLiczba = JakasLiczba - LiczbaOdejmowana"):

Unit1.cpp

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   ActiveControl->Left -= 1;
}