Einzelne Objekte aus Array bewegen - EAccesViolation?

[rawsoul]

N'abend!

Immer noch das gleiche Programm, diesmal aber ein neuer Fehler

Ich möchte per Timer die in Arrays createten Images bewegen.

Delphi-Quellcode:

procedure TForm1.enemyTIMERTimer(Sender: TObject);
begin
enemys createn
  if number<> stage*2 then
    begin
      repeat
      begin
        Setlength(enemy1, high(enemy1)+2);
        enemy1[number]:=timage.create(self);
        with enemy1[number] do
          begin
            parent:=self;
            left:=-1*raster;
            picture.loadfromfile('gfx\enemy.bmp');
            transparent:=false;
            autosize:=true;
            top:=2*raster+random(64);
          end;
        number:=number+1
      end
      until number=stage*2
    end;

for number:=1 to high(enemy1) do
  begin
    enemy1[number].left:=enemy1[number].left+3
  end;

end;

Diese Prozedur sollte eine bestimmte Anzahl von Images createn, und danach diese in meiner Form bewegen. Sobald ich die Prozedur aufrufe, habe ich wieder eine EAccessViolation.

Jemand mit besseren Augen da?

Liebe Grüße,
Frank.