ayuda con AdvOfficePager

[efirvida]

Me respondo yo mismo

var
  TabGrid: TAdvOfficePage;
  grid: TAdvColumnGrid;
  I:=integer;
begin
    TabGrid := TAdvOfficePage.Create(TabGrid);
    TabGrid.AdvOfficePager := Form1.AdvofficePager1;
    TabGrid.caption := 'Tabla';

    with TAdvColumnGrid.Create(grid) do
    begin
      Parent := TabGrid;
//      for I := 0 to 20 do
//      begin
//        AddRow;
//      end;
//      for I := 0 to 20 do
//      begin
//        AddColumn;
//      end;
//      Align := alClient;
    end;

ya con eso creo un tab con un grid dentro pero cuando descomento las lineas que pongo ahi comentadas el programa explota no importa si las pongo dentro o fuera del "with " siempre explota y me hacen falta porque esas son las de empezar.
tendra algo que ver con lo que le estoy pasando a xxxx.create() es que estos componentes no me dejan ponerle self, pero no creo que ese sea el problema