Du musst die Hindernis-Objekte in einen Array packen, dann funktioniert dein Code (bessere Lösung) oder du arbeitest mit
.FindComponent()_
Delphi-Quellcode:
var
Hindernis: THindernis;
...
Hindernis := FindComponent( 'Hindernis'+IntToStr(i));
Hindernis.initiate(clblue, random(image1.width - 20) + 10,random(image1.height- 20) + 10, random(40) + 81);
until ((sqrt(sqr(abs(maus.x - hindernis.hx)) + sqr(abs(maus.y - hindernis.hy)))> (maus.r + hindernis.hr) + 8));
hindernis.show;
...
end;