Llenar un TimageList en ejecucion

[roman]

Un ejemplo:

Código Delphi [-]
var
  Bitmap: TBitmap;

begin
  // Estableces las dimensiones de los bitmaps
  ImageList1.Width := 128;
  ImageList1.Height := 128;

  // Creas un bitmap intermediario
  Bitmap := TBitmap.Create;

  try
    // estas dos líneas las repites por cada bitmap que vayas a agregar
    // clWhite será el color transparente
    Bitmap.LoadFromFile('un bitmap.bmp');  // <-- cargas el bitmap del archivo en disco
    ImageList1.AddMasked(Bitmap, clWhite); // <-- lo insertas en el ImageList
 finally
    // liberas memoria
    Bitmap.Free;
  end;
end;

// Saludos