Delphi-Quellcode:
while Image1.Top<200 do begin
Höhe:= Image1.Top;
Fallen:= Fallen*1.01;
Image1.Top:=round(Image1.Top + Fallen);
Application.ProcessMessages;
So?
Naja ok nun hält es wenigstens an ^^
Jedoch sobald es sichtbar anfängt runter zu gehen, ist es slebst bei einem Interval von 5000 innerhlab von paar Millisekunden gleich unten
