jo danke schön!!!
würd am liebsten in dem stück vll was ändern mit random(..)
Delphi-Quellcode:
if yspeed = 0 then yspeed := 2;
if xspeed = 0 then xspeed := 5;
Ball.Top := Ball.Top + yspeed;
Ball.Left := Ball.Left + xspeed;
if (Ball.Top > 500)
or (Ball.Top <= 0)
then yspeed := -yspeed;