Bildsequenz mittels Array laden

[sakura]

Ändere mal die roten Zeilen...

Code:

procedure TForm1.Button1Click(Sender: TObject);

var fImages: array of TImage;
    i: integer;
    bitmap: tbitmap;

begin

  if opendialog1.execute then
  begin
    bitmap:= tbitmap.Create;
    image1.Picture.Graphic:= bitmap;
    image1.Picture.Bitmap.LoadFromFile(opendialog1.filename);
[color=#ff0000]    setlength(fimages, i + 1);
    fimages[i]:= image1;[/color]
  end;
end;

......