What is the process of adding TBitmaps to a TImageCollection during runtime to be utilized with a TVirtualImageList?

edit

To add TBitmaps to a TImageCollection during runtime to be utilized with a TVirtualImageList, follow these steps:

1. Create a TImageCollection object and a TVirtualImageList object.
2. Assign the TImageCollection object to the TVirtualImageList's ImageCollection property.
3. Create a TBitmap object and load an image into it.
4. Create a TImageCollectionItem object and assign the TBitmap to its Bitmap property.
5. Add the TImageCollectionItem to the TImageCollection's Items collection.
6. Call the TVirtualImageList's Rebuild method to update the list of images.

Here is an example code snippet:

var
  ImageCollection: TImageCollection;
  VirtualImageList: TVirtualImageList;
  Bitmap: TBitmap;
  Item: TImageCollectionItem;
begin
  // Create objects
  ImageCollection := TImageCollection.Create(nil);
  VirtualImageList := TVirtualImageList.Create(nil);
  VirtualImageList.ImageCollection := ImageCollection;

  // Load bitmap
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('image.bmp');

    // Create collection item and add to collection
    Item := ImageCollection.Add;
    Item.Bitmap.Assign(Bitmap);

    // Rebuild virtual image list
    VirtualImageList.Rebuild;
  finally
    Bitmap.Free;
  end;
end;