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

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