Kann es sein, dass du einfach nur vergisst, hoch wieder auf 10 zu setzen?
Kannst du den Text wirklich so lesen? Begins und Ends, die zusammengehören, sollten auch untereinander stehen:
Delphi-Quellcode:
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 ;