mostrar elementos de la lista de imágenes en Timage

Question

tengo crear una lista de imágenes con 20 bitmap dentro y un valor droplistlist de 1 a 20. cuando selecciono la lista desplegable, debe mostrar el mapa de bits que corresponde al índice de lista desplegable. Me enfrenta el problema de que sigue mostrando la misma imagen cuando selecciono la lista desplegable y la imagen es demasiado pequeña. Alguna idea para resolver este problema? y hacer la imagen más grande?

procedure TForm1.FormShow(Sender: TObject); 
var 
    i : integer; 
begin 
    for i:=0 to 20 do begin 
    cboIcon.Items.Add(inttostr(i)); 
    end; 
end; 

procedure TForm1.cboIconChange(Sender: TObject); 
begin 
    ImageList1.Draw (Image1.Canvas, 0,0, cboIcon.ItemIndex); 
end; 

Answer 1

Puede probar este código:

Image1.Stretch := true; // to make it as large as Image1 
Image1.Proportional := true; // to keep width/height ratio 
Image1.Picture.Bitmap:= nil; // clear previous image 
ImageList1.GetBitmap(cboIcon.ItemIndex, Image1.Picture.Bitmap);