was ich nicht verstehe, ist warum du ...
Delphi-Quellcode:
..
for nx:=-radius-1 to radius+1 do
begin
for ny:=-radius-1 to radius+1 do
..
hier zum radius noch |1| dazuzählst?
d.h. du hast den durchmesser um 2 vergrößert!
folgendes reicht auch und du hast damit 2*2*(1+radius) schleifendurchläufe weniger!
Delphi-Quellcode:
..
for nx:=-radius to radius do
begin
for ny:=-radius to radius do
..