[ecfisa]

Hola Rofocale.

Esta es la aproximación más exacta que logré para diferentes cantidades de columnas:

Código Delphi [-]
procedure ExpandirColumnas(Grid: TDBGrid);
var
  i, wd: Integer;
begin
  wd:= (Grid.ClientWidth div Grid.Columns.Count) -
        GetSystemMetrics(SM_CXVSCROLL) div 2;
  for i:= 0 to Grid.Columns.Count -1 do
    Grid.Columns[i].Width:= wd;
end;

Ejemplo de llamada:

Código Delphi [-]
  ExpandirColumnas(DBGrid1);

Saludos.