Stringlist als Index über TImages

[F.W.]

An der Stelle von "if B.Tag = 3 then begin //Richtung überprüfen" bekomme ich eine Zugriffsverletzung.

Eine Stringlist finde ich, ist hier besser geeignet, da ich sie ja nur brauche, um die Namen der Objekte zu "merken".(Daher FindComponent)

Es ist vielleicht besser, wenn ich das Projekt einfach mal hierherstelle.
Es soll am Ende ein Bildschirmschoner sein.

Edit:GANZ WICHTIG: Bei dem AddTimer muss der B.Tagwert auf 3 gestellt werden und der Hint auf '6'!!!
Das ist, weil ich herumprobiert habe und es dann aber vergessen habe, zurückzustellen!