Delphi-Quellcode:
Main.Canvas.Ellipse ((Ball[i].x-Ball[i].r),(Ball[i].y-Ball[i].r),(Ball[i].x+Ball[i].r),(Ball[i].x+Ball[i].r));
Ich habe dir Koordinate der zweiten Y-Koordinate im Befehl Ellipse mit einem X-wert vertauscht, daher kam mein eingentlicher Fehler.