type TipoPagina = record
                    case byte of
                    0 : (Pa : TipoPaginaA);
                    1 : (Pb : TipoPaginaB);
                    2 : (Pc : TipoPaginaC);
                  end;