Bilder mehrmals aus TImageList in TImage laden

[turboPASCAL]

Sollte es tun:

Delphi-Quellcode:

function GetFromImageList(AnyImageList: TImageList; IconIndex: Integer): TBitmap;
var Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  AnyImageList.GetBitmap(IconIndex, Bmp);
  GetFromImageList := Bmp;
  Bmp.Free;
end;
...

begin
  ImageXYZ.Assign(GetFromImageList(ImageList1, i));
...