Bilder aus ImageList auswählen

[Gehstock]

hab in der combobox erstmal von 0-10 Tstrings erstellt
in der imagelist sind 57 Bilder (die später über ihre namen in der ComboBox auswählbar sind)mach ich aber später
also wenn ich jetzt in der combobox 1 auswähle wird bild 2 angezeigt wähle ich jetzt die 2 bleibt bild 2 aber bestehen

Delphi-Quellcode:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Image1: TImage;
    ComboBox1: TComboBox;
    ImageList1: TImageList;
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}




procedure getimage(imglst:TimageList; Id:Integer;bitmap:tbitmap);
var bit : TBitmap;
begin
  bit := TBitmap.Create;
  try
    imglst.GetBitmap(id, Bit);
    bitmap.Assign(bit);
  finally
    FreeAndNil(Bit);
  end;
end;


procedure TForm2.ComboBox1Change(Sender: TObject);

var bitmap : tbitmap;
begin
bitmap := tbitmap.create;
getimage(ImageList1,0,bitmap);
Image1.picture.bitmap.assign(bitmap);
freeandnil(bitmap);

  end;

end.