Images mehrfach verwenden

[fabgo]

Hallo an alle,

habe folgendes problem: ich möchte eine grafik in delphi mehrfach verwenden.

das funktioniert aber nicht.

Delphi-Quellcode:

  ImSchuesse:Array[0..50] of TImage;
  schuesse:Array[0..100] of Tshot;

in der ersten prozedur steht folgendes:

Delphi-Quellcode:

for i:=0 to 50 do
   begin
     ImSchuesse[i]:=strich;   // strich ist eine grafik
   end;
  Anzahl:=1;

und dann beim aufruf:

Delphi-Quellcode:

if(Key=VK_SPACE)  then
 begin
    schuesse[Anzahl]:=Tshot.Create(Player.GetX, Player.GetY, 0, 0, ImSchuesse[Anzahl], Form1);
    Anzahl:=Anzahl+1;
 end

Es wird aber immer nur einmal die grafik aufgerufen...wie kann ich bilder duplizieren?

gruß fabgo