ayuda con AdvOfficePager en delphi

[efirvida]

estoy usando este componente por como luce pero supongo que sea parecido con el PageControl, el problema es que quiero agregarle pestañas en tiempo de ejecucion ya eso lo se hacer, mas o menos, el problema esta cuando quiero que la pestaña tenga dentro un grid o un tchart, que no se como hacerlo esto es lo que tengo hecho

Código pascal:

procedure addtab(TabTipo:string);
var
TabGrid : TAdvOfficePage;
TabGraf : TAdvOfficePage;
begin
if (TabTipo ='grid') then
begin
AdvOfficePager1.AddAdvPage(TabGrid);
end;
if (TabTipo ='graf') then
begin
AdvOfficePager1.AddAdvPage(TabGraf);
end;
end;
 

no se como ni donde definirle a TabGraf y TabGrid todo lo que quiero que tenga dentro-

[efirvida]

Me respondo yo mismo

Código delphi:

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 alco 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