Hier ist gefährlicher Code:
Delphi-Quellcode:
For x:=1 to 4 do
(Findcomponent('Image'+intToStr(x))as TImage).visible:=false;
Es könnte ja sein, dass es Image4 nicht gibt; dann Zugriffsverletzung.
so wird die Sache entschärft:
Delphi-Quellcode:
var
c : TComponent;
...
For x:=1 to 4 do
begin
c := Findcomponent('Image'+intToStr(x));
Assert(Assigned(c));
(c as TImage).visible:=false;
end;