Código Delphi [-]DBGrid1.Column[1].width := Table1.Fields[1].DisplayWidth;
DBGrid1.Column[1].width := Table1.Fields[1].DisplayWidth;