/*
OnTimer, Interval, ActiveControl, Left example
The following event handler responds to timer events by moving the active control one pixel to the right:
*/ 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  Timer1->Interval = 100;
  if (ActiveControl)
    ActiveControl->Left = ActiveControl->Left + 1;
} 
