[ApxaHGe1]

У меня так же сделаноprocedure TForm9.FormCreate(Sender: TObject);
Var i: Integer;
begin
for i := 0 to DBGrid1.Columns.Count - 1
do DBGrid1.Columns.Items[i].Width := 60;
end;