var
  I: Integer;
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  for I := 0 to ImageList1.Count - 1 do
  begin
    ImageList1.GetBitmap(I, bmp);
    AdvSmoothListBox1.Items.Add.Image.Assign(bmp);
  end;
  bmp.Free;

var
  I: Integer;
  ico: TIcon;
  ms: TMemoryStream;
begin
  ico := TIcon.Create;
  for I := 0 to ImageList1.Count - 1 do
  begin
    ImageList1.GetIcon(I, ico);
    ms := TMemoryStream.Create;
    ico.SaveToStream(ms);
    AdvSmoothListBox1.Items.Add.Image.LoadFromStream(ms);
    ms.Free;
  end;
  ico.Free;