DBGrid que adapte sus columnas en función del ancho del contenedor

[Kenobi]

Hola gracias a sus respuestas logre hacer el siguiente procedimiento valido para los tipos dbgrid

Código Delphi [-]
Procedure adaptar_Grid(Grid:TDbGrid);
var
  ancho,i : integer;
begin
  ancho := Grid.Width;
  for i := 0 to Grid.Columns.Count -1 do
  begin
  Grid.Columns[i].Width := (ancho * Grid.Columns[i].tag) div 100 ;
  end;
end;

Sin embargo y dada la naturaleza de mis forms esta ocurriendo algo no muy deseable:
algunos de mis forms tienen dentro de si control pageControl dentro de los cuales en distintos tabs hay dbgrids, con el uso del procedure anterior en el evento onrezise del form los configuro a todos:

Código Delphi [-]
adaptar_grid(dbgrid1);
adaptar_grid(dbgrid2);
.
.
.
adaptar_grid(dbgrid..N);

Mas sin embargo el unico que realmente se adapta es aquel que se encuentre visible al momento de re dimensionar el form

esa es mi nueva duda
Gracias por todo