Mit Timer images verschieben

[Skullschildi]

Hallo mal wieder. Bei der entwicklung meines Jump and nthing else games bin ich beim Jumpen auf ein problem gestossen.

Delphi-Quellcode:

var hoch : integer; //bei formcreate als 10 definiert

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if hoch > -10 then
begin
hoch := hoch - 1;
image2.Top := image2.Top - hoch;
image3.Top := image3.Top - hoch;
image4.Top := image4.Top - hoch;
image6.Top := image6.Top - hoch;
     end
     else
     if hoch < -10 then
     begin
     hoch := hoch + 1;
image2.Top := image2.Top - hoch;
image3.Top := image3.Top - hoch;
image4.Top := image4.Top - hoch;
image6.Top := image6.Top - hoch;

timer2.enabled := false;

end ;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin if timer2.enabled = false then
timer2.enabled := true;

end;

die Bewegung endet, wo sie soll, was für mich heisst, des ding hört auf zu arbeiten wo es soll. Aber der Timer is weiterhin an. des stört mich n bissl, denn im spiel sollte man mehrmals springen^^. weiss jemand ne Lösung?