Image改变大小的问题

Question

我用TextRect在Image上输出文字
我根据文字的长和宽来确定image的长和宽
可再实际编程过程中发现image的长和宽根本没有改变
请问怎么解决？str:='daljfdljfdl';
Image1.Height := Image1.Canvas.TextHeight('S');
Image1.Width := Image1.Canvas.TextWidth('S')*Length(str);
Image1.Canvas.TextRect(Rect(0,0,Image1.Width,Image1.Height),1,1,Str)

Answer 1

系统运行后，是无法看到的IMAGE的边框的啊
请问你是如何发现他的长宽是未变的

Answer 2

Showmessage(IntToStr(Image1.Width))啊

Answer 3

可是我必须要根据字符串的长度来判断image的大小了

Answer 4

str:='daljfdljfdl';
Image1.Height := Image1.Canvas.TextHeight(str);
Image1.Width := Image1.Canvas.TextWidth(str);
Image1.Canvas.TextRect(Rect(0,0,Image1.Width,Image1.Height),1,1,Str);