Columns resize issue

I describe an old big problem never corrected for the grid !

If i create a grid with persistent columns and i resize these manually with mouse one by one with patience ... ok all go fine. 
Time later i decide to put another column in the middle of grid (NOT at the end !!) all columns after new just inserted lose original resize and i must again to resize these manually !!! ITS A Trouble !!

There is anyway to FIX the width of every column ??? or correct insertion please ....


I cannot see such problem.
Test case on a default grid:

procedure TForm1.Button1Click(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
  i: integer;
 advstringgrid1.Options := advstringgrid1.Options + [goColSizing];
 for i := 1 to 4 do
   advstringgrid1.ColWidths := i * 40;
   advstringgrid1.Cells[i,0] := inttostr(i * 40);

the width of existing columns is preserved when inserting a new column and the new column gets the default width (grid.DefaultColWidth) which is by design.

sorry bruno ... i say at design time !

We could reproduce this at design-time and are investigating how to solve this.

advise me when corrected, please. Thanks