Danke habe es vorhin versucht aber das lässt sich so einfach nicht vereinbaren mit den ganzen Kram.
Ich sehe da nur, dass da ein
High(Sprite)
ersetzt werden muss durch
Sprite.Count - 1
wie im Beispiel und es muss noch das einzelne Sprite (Für die Liste wäre nebenbei Sprites im Plural sinnvoller, dann müsste ich das nicht betonen) erzeugt werden:
Delphi-Quellcode:
// statt Setlength(Sprite, Count + 1);
Sprite.Add(TSprite.Create);
Sprite[Count].Top := Bottom;
...