{
Place a TTimer object in the form and enter Timer1Timer 
in the OnTimer event.  Place other controls in the form
and change the active control at runtime.
The following event handler responds to timer events by 
moving the active control one pixel to the right:
} 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval := 100;
  if ActiveControl <> nil then
    ActiveControl.Left := ActiveControl.Left + 1;
end; 

