delphi 问题，很简单的！~~

我想问一下，
edit为什么里面的autosize 不管用呢？
文字上下是自动的高度，但是文字长度不能自动，
怎么做才能让长度合适而且，edit屏幕居中呢？

在Form中:
var
 w:dword;
begin
Canvas.TextWidth(Edit1.Text);
w:=Canvas.TextWidth(Edit1.Text);
Edit1.Width:=w; //长度合适
edit1.SelectAll;
Edit1.Left:=(width-w) div 2; //屏幕居中
end;