anchor.diff:  if RefTextTot= -1
   then
     RefTextTot:= Texts.Add(TextTot);
  -WriteNumber(Horiz,Verti,ColNum,RefTextPage,RefTextTot,FontNum,BkColorNum,BordNum,LineSpNum,Flags,Total,Alpha,ZEnTete,SectNum);
  +WriteNumber(Horiz,Verti,ColNum,RefTextPage,RefTextTot,FontNum,BkColorNum,BordNum,LineSpNum,Flags,Total,Alpha,zHeader,SectNum);
   end;
   
   procedure T_Report.NumSectionFooter(Horiz,Verti: Single; TexteSect: string= ''; TextTot: string= '';
  
positive.code:   for Cpt:= 0 to Pred(Images.Count) do
      TfpgImage(Images[Cpt]).Free;
  Images.Free;
  Texts.Free;
  VWriteLine.Free;
  if PdfPage.Count> 0
  
negative.code:       procedure DrawALine(XBegin,YBegin,XEnd,YEnd: Single; StyLine: Integer);
        procedure DrawAHorizLine(XBegin,YBegin: Single; Column: Integer; XEnd: Single; StyLine: Integer; Zone: TZone);
        procedure PaintSurface(Points: T_Points; Couleur: TfpgColor);
        procedure PaintImage(PosX,PosY,ImgNum: Integer; Zone: TZone);
        function GetSectionTitle: string;
        procedure SetSectionTitle(ATitle: string);
      public
  