在程序运行中怎么让被选中的Image控件出现边界

在程序运行中如何让被选中的Image控件出现边界？
如题，想实现好像程序设计是那样，出现拉伸的边界。

------解决方案--------------------
if(Image1被选中)
{
Image1-> Canvas-> Brush-> Color = clRed; //被选中时显示的颜色
Image1-> Canvas-> FrameRect(TRect(0,0,Image1-> Width,Image1-> Height));
}
else //没被选中
{
Image1-> Canvas-> Brush-> Color = clBtnFace;
Image1-> Canvas-> FrameRect(TRect(0,0,Image1-> Width,Image1-> Height)); //还原
}
------解决方案--------------------
楼上正解,自己画