Error cuando intento agregar una imagen en un TImageList
 

Saludos, resumí el error en esta captura:

Segun embarcadero aqui: http://docwiki.embarcadero.com/CodeE...oBoxEx_(Delphi), este codigo deberia funcionar...

El codigo de la docwiki me compila perfectamente

Estas usando el metodo incorrecto

Código Delphi [-]
  TCustomImageList = class
  ...
  public
    function Add(Image, Mask: TBitmap): Integer;
    function AddImage(Value: TCustomImageList; Index: Integer): Integer;
  end;

Debes usar el metodo Add, que recibe como parametro una Imagen (Bitmap) y la mascara

El metdo AddImage recibe TCustomImageList y obviamente es incompatible con TBitmap