可以使用Canvas, 但设计时在IMAGE中加入图片,格式必须为BMP位图,否则会出错!
  Image1.Canvas.Brush.Color:=RGB(255,0,0);//红色
  Image1.Canvas.Pen.Color:=RGB(255,0,0);
  Image1.Canvas.Rectangle(x,y,x+20,y+20);//画矩形
  image1.Canvas.TextOut(x,y,IntToStr(x));//画字符串

也可以用shape组件应符一下 :)

Shape1.SetBounds(x+image1.left,y+image1.top,20,20);

多年中小型项目开发经验，熟悉VB，VBA，Delphi和.NET平台，承接各种软件编写业务,
信誉第一,质量保证,售后完善,如有需要请联系QQ：3 8 3 1 4 7 8 1 8 请注明：pfan