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.