Problem mit ImageList.GetBitmap

[turboPASCAL]

So ein ähnliches Probl. hatte ich auch schon einmal, als ich verschiedene Bitmaps aus einer ImageList
in eine Listbox kopieren wollte. (schohn länger her)

Hatte dann folgende Lösung:

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;
...
for i:=0 to 10 do
  Dings[i].Bitmap := GetFromImageList(ImageList1, i);
...