bei corpsman hat sich leider n kleiner fehler eingeschlichen
If y > width - dicke Then y := height - dicke;
(findest du ziemlich weit unten im zweiten sourcecode.)
das muss ersetzt werden durch
If y > height - dicke Then y := height - dicke;
damit läuft die kugel nicht mehr nach unten raus
dass die kugel n stück nach rechts aus dem feld flutscht, leigt daran, dass "x" wohl imkugel.left ist, oder?!
dann füg doch hier noch ein
If (x+imkugel.width) > (width - dicke) Then x := width - dicke;