Delphi-Quellcode:
function getimage(imglst:TimageList;Id:Integer):Tbitmap;
begin
Result := TBitmap.Create;
imglst.GetBitmap(id, result);
end;
Sollte Gehen ist aber ungetestet
image1.picture.bitmap.assign(getimage(ImageList1,3));
edit: sinnloses entfernt