Automatisches hin und her hüpfen mit hilfe eines timers

[malo]

Und zwar hab ich mal zu Versuchszwecken versucht ein Programm zu schreiben, dass ein Label automatisch nach links und rechts hüpfen lässt(bin immer noch Anfänger in Delphi ).

jetzt sieht mein Quelltext im OnTimer-Event folgendermaßen aus:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Bewegung := Bewegung + 1; // Wert von Bewegung erhöht sich sekündlich um 1
  if Bewegung = 5 then
    begin
      if Label1.Left = Entfernung then
        Label1.Left := Entfernung + 100; // Soll nur einmal vorkommen
    end;
  if Bewegung = 5 then
    begin
      if Label1.Left = Entfernung + 100 then
        Label1.left := Entfernung - 100 // nach der ersten Bewegung soll Label1 in die andere Richtung
    end;
  if Bewegung = 5 then
    begin
      if Label1.Left = Entfernung - 100 then
        Label1.Left := Entfernung + 100; // nach der zweiten Bewegung wieder in die andere Richtung. Dann tritt das zweite wieder ein.
    end;
  if Bewegung = 5 then
    Bewegung := 1; // Bewegung wird auf 1 zurückgesetzt, eine Endlos schleife soll entstehen


end;

Bewegung und Entfernung sind Variabeln vom Typ integer. Entfernung hat im OnCreat des Forms den gleichen Wert bekommen, wie Label1.Left ist. Bewegung startet mit 1.

Wenn ich das Programm jetzt laufen lasse, hüpft das Label einmal nach rechts und bleibt dort. Was hab ich falsch gemacht?