Asignar una imagen de un TImageList a un TBitButton en ejecucion

[aguml]

Amigos lo he intentado todo y he buscado por todas partes y lo he conseguido hacerlo funcionar asi:

Código PHP:

Graphics::TBitmap *bmp = new Graphics::TBitmap();
ImageList->GetBitmap(0,bmp);
BitBtnImprimir->Glyph->Assign(bmp);
delete bmp; 


He probado con:

Código PHP:

ImageList->GetBitmap(0,BitBtnImprimir->Glyph); 


pero no surte efecto, solo me ha funcionado usando el metodo de arriba y la verdad es que no me agrada tener que usar un TBitmap intermedio para ello ¿se puede hacer directamente?