TImage更换图片画布刷新问题

TImage从一个ImageList加载图片，比方说点击一次加载第一张，点击第二次加载第二张，但发现加载第二张的时候，第一张的图像没有被清除，第二张是直接覆盖到上面的

解决方法就是在更换图片的时候将image的画布清空：

                img->Canvas->FillRect(img->Canvas->ClipRect);//加上这句就好了
                list->GetBitmap(index,img->Picture->Bitmap);
                img->Repaint();