Código Delphi [-] Edit1.Width:=Canvas.TextWidth(Edit1.Text);
Edit1.Width:=Canvas.TextWidth(Edit1.Text);