TImageList gibt TImage Bild, Bild wechselt aber nicht

[SimStar001]

Delphi-Quellcode:

var Bitmap : TBitmap;
...
  imagelist1.GetBitmap(0,Bitmap)
  image1.Picture.Assign(Bitmap);