ss := i.ToString + ‘中国人民解放军中国人民解放军中国人民解放军‘; Image1.Width := Image1.Canvas.TextWidth(ss); Image1.Picture := nil; Image1.Canvas.TextOut(1, 1, ss);
根据文字动态改变image宽度，改变画布宽度尺寸大小。
改变画布大小
原文：http://www.cnblogs.com/cb168/p/4324533.html
