Jump and Run! need help !

[Bartuc]

ok hab ich gerade auch gesehen

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if imgcartman.Top =  -100 then begin
timer2.enabled := true;
timer1.Enabled := false;
end
else begin
  repeat
  Imgcartman.Top := Imgcartman.top -5;
until (imgcartman.Top = -100);
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if imgcartman.Top = 100 then begin
timer2.enabled := false;
end
else begin
repeat
  imgcartman.Top := imgcartman.Top +5;
until (imgcartman.Top = 100);
end;
end;

so besser? aber es friert immernoch ein =(