Probleme mit Array of TImage

[sakura]

Ändere mal wie folgend.

Code:

procedure TMainForm.CreateNewEnemyTimer(Sender: TObject);
  var i:integer;
    Gegner : Array of Timage;
  begin
    setlength(Gegner,5);   
  for i := 0 to high(Gegner) do
    begin
      [color=#ff0012]Gegner[i] := Timage.Create(self);[/color]
      with Gegner[i] do
        begin
          [s][color=#ff0012]Timage.Create(self);[/color][/s]
          Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'enemies\blue.ico');
          left := trunc(random * 300);
          height := 32;
          width:= 32;
          Visible := true;
          Show;
        end;
    end;
  end;

......