Try Changing

.COLUMNS(GridColumns.ColumnNo).Header1.CAPTION = ;
GridColumns.ColumnName

To the following :

.COLUMNS(.ColumnCount).Header1.CAPTION = ;
GridColumns.ColumnName

ie replace GridColumns.ColumnNo, with .ColumnCount in each instance after the Column is added as you are not in Control of the ColumnNo assigned.