こんな風にしてみました
 ch := key+chtim;
 image1.canvas.brush.color:=RGB(128,255,0);
 image1.Canvas.FillRect(rect(0,0,image1.width,image1.height));
 imagelist1.GetBitmap(ch, image1.Picture.Bitmap);
 Image1.Refresh;