...
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
with ComboBox1.Items do
begin
Add('AZUL');
Add('VERDE');
Add('ROJO');
end;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Image1.Picture:= nil;
with Sender as TComboBox do
ImageList1.GetBitmap(ItemIndex, Image1.Picture.Bitmap)
end;