Hola.
Te pongo un ejemplo para cargar un TComboBoxEx desde un TImageList, y también un TComboBox como alternativa:
Código Delphi
[-]
...
procedure TForm1.FormShow(Sender: TObject);
var
i: Integer;
begin
for i:= 0 to ImageList1.Count -1 do
begin
ComboBoxEx1.ItemsEx.AddItem('Item '+IntToStr(i), i, i, 0, 0, nil)
ComboBox1.Items.Add('Item '+IntToStr(i));
end;
end;
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
ComboBox1.Canvas.FillRect(Rect);
ImageList1.Draw(ComboBox1.Canvas, Rect.Left, Rect.top,Index);
ComboBox1.Canvas.TextOut(Rect.left + ImageList1.Width+2, Rect.top, ComboBox1.Items[Index]);
end;
...
Saludos.