InsertFromBitmapList (ImageList Control) example for Delphi

{load an image}
LEADImage1.Load ('v:\images\eagle.cmp', 0, 0, 1);
{make a bitmap list}
LEADImage2.InsertBitmapListItem (0, LEADImage1.Bitmap);
LEADImage1.Rotate (2500, 0, 0);
LEADImage2.InsertBitmapListItem (0, LEADImage1.Bitmap);
LEADImage1.Rotate (2500, 0, 0);
LEADImage2.InsertBitmapListItem (0, LEADImage1.Bitmap);
LEADImage1.Rotate (2500, 0, 0);

{now, insert the items from the bitmap list into the ImageList Control}
LEADImgList1.InsertFromBitmapList (LEADImage2.BitmapList, 'test_list');