Añadir imagenes en un TimageList
 

Hola a Todos.
Estoy intentando añadir BMPs en tiempo de ejecución a un TimageList, pero siempre recibo el mismo mensaje 'Invalid image Size' , y no se por qué.
Adjunto código a ver si alguien me puede echar una mano.

Código Delphi [-]
var
  imagen: tbitmap;
  cadena string;
begin
  image:=tbitmap.create;
  imagelist1.Clear;
  cadena:=getcurrentdir+'\main.bmp';
  imagen.loadfromfile(cadena);
  imagelist1.AddMasked(imagen,clWhite);

y si el bmp lo cargo mediante el image Editor del Timagelist, lo carga perfectamente.

Un saludo.

El editor de TimageList corta o comprime la imagen al tamaño seleccionado en el TimageList, por código no lo haces.

Deberías tener las imagenes en el tamaño predefinido para cargarlas sin problemas.