anchor.diff:  constructor TPdfDocument.CreateDocument;
   var
     Cpt,CptSect,CptPage,NumFont,TreeRoot,ParentPage,PageNum,NumPage: Integer;
  -  OutlineRoot,ParentOutline,PageOutline,NextOutline,NextSect,NewPage: Integer;
  +  OutlineRoot,ParentOutline,PageOutline,NextOutline,NextSect,NewPage,PrevOutline,PrevSect: Integer;
     Dictionaire: TPdfDictionary;
  -  XRefObjets,PrevOutline,PrevSect: TPdfReference;
  +  XRefObjets: TPdfReference;
     Nom: TPdfName;
     FontName: string;
   begin
  
positive.code:       begin
        Dictionaire:= TPdfDictionary(TPdfDicElement(Dictionaire.FElement[Dictionaire.ElementParCle('Resources')]).FValue);
        Dictionaire:= TPdfDictionary(TPdfDicElement(Dictionaire.FElement[Dictionaire.ElementParCle('Font')]).FValue);
        Dictionaire.AddElement(TPdfName(Nom).FValue,XRefObjets);
        end;
    end;
  
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
  