Missing column headers

In my current project I upgraded from a AdvStringGrid to a multiple sheet AdvGridWorkbook.  An absolutely brilliant component.  All code for formatting the rows and columns and restricting user input to certain cells compiled and worked as intended once I added ".Grid." after the existing name for the original grid.  Other than updating AdvGridExcelIO to load and save a GridWorkBook this was the only change.

However, I cannot get the column headers to display using the original code (see below).  I tried indicating the intended ActiveSheet for the grid.  Grid examples 58 and 59 provide no guidance on this issue.

Paul

PROCEDURE ADD_COL_HEADERS {untUtil_Excel};
var strlist : Tstringlist;
BEGIN
  strlist:=TStringList.Create;{constructthelistobject}
  strlist.Add(' ');              // Col 0 - used to hold the nodes, rather than row numbers
  strlist.Add('Text1');       // Col 1
  strlist.Add('Text2');       // Col 1
  {deleted rows}
  strlist.Add('Comments');   // Col 26
  try
    begin
      ASG1.ActiveSheet := 0;
      ASG1.Grid.ColumnHeaders := strlist;
    end;
  finally
    strlist.Free;    { destroy the list object }
  end;
END;