anchor.diff:  if FElement.Count> 0
   then
     for Cpt:= 0 to Pred(FElement.Count) do
  -    try
  -      TPdfDicElement(FElement[Cpt]).Free;
  -    except
  -      end;
  +    TPdfDicElement(FElement[Cpt]).Free;
   FElement.Free;
   inherited;
   end;
  
positive.code:         XRefObjets:= TPdfReference.CreateReference(Pred(FXRefObjets.Count));
          TPdfDictionary(TPdfXRef(FXRefObjets[OutlineRoot]).FObjet).AddElement('First',XRefObjets);
          NextSect:= ParentOutline;
          PrevSect:= XRefObjets;
          end
        else
          begin
          XRefObjets:= TPdfReference.CreateReference(Pred(FXRefObjets.Count));
          TPdfDictionary(TPdfXRef(FXRefObjets[NextSect]).FObjet).AddElement('Next',XRefObjets);
          TPdfDictionary(TPdfXRef(FXRefObjets[ParentOutline]).FObjet).AddElement('Prev',PrevSect);
          NextSect:= ParentOutline;
          PrevSect:= XRefObjets;
          end;
        if CptSect= Pred(Sections.Count)
        then
  
negative.code:         begin
          XRefObjets:= TPdfReference.CreateReference(Pred(FXRefObjets.Count));
          TPdfDictionary(TPdfXRef(FXRefObjets[NextOutline]).FObjet).AddElement('Next',XRefObjets);
          XRefObjets:= TPdfReference.CreateReference(PrevOutline);
          TPdfDictionary(TPdfXRef(FXRefObjets[PageOutline]).FObjet).AddElement('Prev',XRefObjets);
          NextOutline:= PageOutline;
          if CptPage< Pred(T_Section(Sections[CptSect]).Pages.Count)
          then
            PrevOutline:= Pred(FXRefObjets.Count);
          end;
        if CptPage= Pred(T_Section(Sections[CptSect]).Pages.Count)
        then
  