[freedomman]

Код:

procedure TMyDBGrideh._autoSizeDBGrid;
var i:integer;
begin
  with Columns do
    for i:=0 to count-1 do
      with Items[i] do begin
        if Visible then OptimizeWidth;
        if Width>400 then Width:=400;
      end;
end;