PageControl me produce desbordamiento de pila

[apicito]

En tiempo de ejecución creo una pagina en un PageControl y dentro de ella abro un formulario, con este codigo:

procedure TPrincipal.Sesiones;
var Sesion:TSesion;
    PaxNum:Integer;
Begin
  with TTabSheet.Create(self) do
    begin
      PageControl:=Paxinas;
      Name:='Paxina'+trim(inttostr(Contador));
      Caption:='Sesiones';
      PaxNum:=PageIndex;
    end;
  inc(Contador);
  Sesion:=TSesion.Create(Self);
  with Sesion do
    begin
      Parent:=Paxinas.Pages[PaxNum];
      Show;
    end;
end;

Me da un error de desbordamiento de pila. Sin embargo si abro el formulario Sesión sin asignarle un parent no da problemas.
Que puede estar pasando?.

[apicito]

Me auto respondo por si pudiera interesarle a alguien. Así funciona correctamente:

procedure TPrincipal.Sesiones;
var Sesion:TSesion;
    PaxNum:Integer;
    Pax:TtabSheet;
Begin
  with TTabSheet.Create(self) do
    begin
      PageControl:=Paxinas;
      Name:='Paxina'+trim(inttostr(Contador));
      Caption:='Sesiones';
      PaxNum:=PageIndex;
      Pax:=Paxinas.Pages[PaxNum];
    end;
  inc(Contador);
  Sesion:=TSesion.Create(Self);
  with Sesion do
    begin
      Parent:=Pax;
      Show;
    end;
end;

Que nadie me pregunte porqué... porque no lo sé.