Añadir imagenes en un TimageList

[JROMAN]

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.