Bueno, Cuando lo hice use dos Ttimer con 50 en su propiedad interval y un TLabel.
Y La propiedad enabled del primero en "True", y la del segundo en "False"
En el Evento OnTimer del primero Puse Algo asi:
Código:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Left:=Label1.Left+10;
if label1.Left>=500 then
begin
Timer2.Enabled:=True;
Timer1.Enabled:=False;
end;
end;
Y en el sugundo asi:
Código:
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label1.Left:=Label1.Left-10;
if label1.Left<=0 then
begin
Timer1.Enabled:=True;
Timer2.Enabled:=False;
end;
end;
Y listo Ahora si, Espero te funcione...