Nabend zusammen,
hab mich jetzt nocheinmal eingehend damit beschäftigt und das ganze durch den Debugger laufen lassen. Dabei sind mir zwei Sachen aufgefallen:
1. Der Fehler. Ich weiß garnicht, wie ich so blöd sein kann
Der Tipp mit "div 2" statt "/2" war ja gut, da ich aber ohnehin den Radius und nicht den Durchmesser als "Größe" festgelegt hatte, war das totaler Blödsinn.. Es funktioniert also jetzt, danke für eure Tipps!
2. (Und das ist wirklich seltsam) Für die Procedur habe ich eine lokale Variable deklariert, die AM ANFANG der Procedur, also schon vor dem ersten Zugriff einen gigantischen Wert (etwa: 2012404120) hat. Das kann doch garnicht sein ?! Wenn ich am Anfang "Variable:=0;" eingebe, funktioniert alles.