TSpeedButton con imágenes de un TImageList

[Kalondro]

Hola a todo el foro,

Tengo una pequeña problema que seguro que alguien me lo puede resolver, en un formulario tengo varios TSpeedButton y un componente TImageList con dos imágenes, la idea es que cada uno de los TSpeedButton puede tener una de las dos imágenes o ninguna (sin texto), buscando por el foro he encontrado el siguiente método para quitar la imagen

 
SpeedButton1->Glyph = NULL;

Pero no he sido capaz de encontrar la forma de poner en cualquier botón la imagen sacada del TImageList. Agradecería cualquier ayuda al respecto.

Muchas gracias.

[ecfisa]

Hola.

Probá de este modo:

/* (El ejemplo pone las imágenes de ImageList en los SpeedButton del form) */
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int Inx=0; // indice 
 for(int i=0; i < ComponentCount - 1; i++)
  // si es SpeedButton y hay imágenes para él, poner imágen
  if(Components[i]->ClassNameIs("TSpeedButton") && Inx < ImageList1->Count) {
    ImageList1->GetBitmap(Inx, ((TSpeedButton*)Components[i])->Glyph); 
    Inx++;  // próxima imágen
  }
}

Inx es el índice que dá la posición de la imágen en el ImageList, donde 0 es la primera y Count-1 la última.

Saludos.

[Kalondro]

Es perfecto, justo lo que necesitaba.
Muchas gracias.