unit uTest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ImgList;

type
  TForm1 = class(TForm)
    Start: TButton;
    FigurListe: TImageList;
    Label1: TLabel;
    Timer1: TTimer;
    procedure StartClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Bild : TBitmap ;
  BildName : string ;
  i : integer ;

implementation

{$R *.dfm}

procedure TForm1.StartClick(Sender: TObject);
begin
for i := 1 to 2 do
  begin
  Bild.LoadFromFile(IntToStr(i) + '.bmp');
  Bild.Width := 840 ;
  Bild.Height := 560 ;
  FigurListe.Width := 840 ;
  FigurListe.Height := 560 ;
  FigurListe.Masked := false ;
  FigurListe.Add(Bild, nil)
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FigurListe.Free ;
Bild.Free ;
end;

end.