Código Delphi [-] for i:=0 to DBGrid1.Columns.Count-1 do DBGrid1.Columns[i].Width := 100;
for i:=0 to DBGrid1.Columns.Count-1 do DBGrid1.Columns[i].Width := 100;