anchor.diff:  Nom:= TPdfName.CreateName('F'+IntToStr(NumFonte));
   Fontes.FObjet.AddElement('Name',Nom);
   // add font reference to all page dictionary
  -XRefObjets:= TPdfReference.CreateReference(Pred(FXRefObjets.Count));
   for Cpt:= 1 to Pred(FXRefObjets.Count) do
     begin
     Dictionaire:= TPdfDictionary(TPdfXRef(FXRefObjets[Cpt]).FObjet);
  
positive.code:   Inc(NumFont);
    end;
  TPdfInteger(TPdfDicElement(Trailer.FElement[Trailer.ElementParCle('Size')]).FValue).FValue:= FXRefObjets.Count;
  //if PdfPage.Count> 0
  //then
  //  for CptPage:= 0 to Pred(PdfPage.Count) do
  //    if TPdfElement(PdfPage[CptPage]) is TPdfTexte
  //    then
  //      TPdfTexte(PdfPage[CptPage]).Free
  //    else
  //      if TPdfElement(PdfPage[CptPage]) is TPdfRect
  //      then
  //        TPdfRect(PdfPage[CptPage]).Free
  //      else
  //        if TPdfElement(PdfPage[CptPage]) is TPdfLine
  //        then
  //          TPdfLine(PdfPage[CptPage]).Free
  //        else
  //          if TPdfElement(PdfPage[CptPage]) is TPdfSurf
  //          then
  //            TPdfSurf(PdfPage[CptPage]).Free;
  end;
  
  destructor TPdfDocument.Destroy;
  
negative.code: constructor TPdfDocument.CreateDocument;
  var
    Cpt,CptSect,CptPage,NumFont,TreeRoot,ParentPage,PageNum,NumPage: Integer;
    OutlineRoot,ParentOutline,PageOutline,NextOutline,NextSect,NewPage,PrevOutline,PrevSect: Integer;
    Dictionaire: TPdfDictionary;
    XRefObjets: TPdfReference;
    Nom: TPdfName;
    FontName: string;
  begin
  