Llenar un TimageList en ejecucion

[rex]

Hola que tal, estoy seguro que esto esta por demas tratado, pero no lo encuentro, como llenar un TimageList en tiempo de ejecución, tengo imagenes BMP en disco duro y quiero cargarlas en tiempo de ejecucion a un TimageList.

[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

[rex]

Excelente, Muchas Gracias Roman.

[juangiron]

Como Pudo Insertar Imagenes de 122 x 122 pixeles en un imagelist? ¿puedo hacer esto?...
gracias