TSpeedButton con imágenes de un TImageList

[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.