Du musst ja irgendwie festlegen, in was für einem Index deine TAsteroids
erzeugt werden. Diesen Indexwert übergibst du einer Variable, die du im Typen TAsteroids deklarierst.
type TAsteroid = class (TImageSprite)
IndexCount: Integer; // die Varibale, mit der du denn Indexwert
// im Array festhälst.
procedure ............
..... usw
end;
Und wenn du den Asteroiden erzeugst, übergib ihm den Befehl:
Bal[4].IndexCount := 4;
So kannst du festhalten, in welcher Position des Array der Asteroid gespeichtert wurde, und die Tod[x] Variable dem entsprechenden Asteroid zuordnen.
Falls ich dein Problem falsch verstanden habe, musst du dein Problem noch mal anders darstellen. Hoffentlich konnte ich helfen.
Gruß
Basti
