TImage从一个ImageList加载图片，比方说点击一次加载第一张，点击第二次加载第二张，但发现加载第二张的时候，第一张的图像没有被清除，第二张是直接覆盖到上面的
解决方法就是在更换图片的时候将image的画布清空：
img->Canvas->FillRect(img->Canvas->ClipRect);//加上这句就好了
list->GetBitmap(index,img->Picture->Bitmap);
img->Repaint();
转播
