delphi 根据字符串长度来控制控件长度(0)

问题很菜，谢谢。

procedure TForm1.Button1Click(Sender: TObject);var BitMap: TBitMap; X: Integer;begin BitMap:= TBitMap.Create; try with BitMap.Canvas do begin Font.Assign(Button1.Font); X:= TextWidth(Edit1.Text); end; Button1.Width:= X + 10; Button1.Caption:= Edit1.Text; finally BitMap.Free; end;end;

非常感谢。再一次谢谢，