ImportBitmapList example for Delphi

procedure TForm1.btnImportBitmapListClick(Sender: TObject);
begin
   if(LEADImage1.BitmapListCount > 0)then// There are some bitmaps
   begin
      LEADImgList1.ImportBitmapList(LEADImage1.BitmapList, 0, LEADImage1.BitmapListCount, 'Imported Bitmap-Text', 'Imported Bitmap-TextExt');
      // Redraw the control
      LEADImgList1.Refresh();
   end;
end;