[Nieto]

Ok,

AL momento de crear los Grids hago esto:

Código Delphi [-]
  public
    { Public declarations }
   ListaGrid: TObjectList;


procedure TFRpt.GeneraHojas;
var sg: TwwDbGrid
begin
  if not Assigned(ListaGrid) then
    ListaGrid := TObjectList.Create;

    sg  := TwwDbGrid.Create(self);
    ListaGrid.Add(sg);

end;

Entonces seria poner en codigo delphi algo asi

Código Delphi [-]
PageControlIngresos.ActivePage := TTabSheet(Twincontrol(FindComponent(ListaGrid.Items.[i].Name)).Parent);

Saludos;