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:               FHeight:= B-T-FHeaderHeight-FFooterHeight;
                FWidth:= R-L;
                end;
              zPied:
                begin
                FLeft:= L;
                FBottom:= Paper.H-B;
                FHeight:= FFooterHeight;
                FWidth:= R-L;
                end;
              zMarges:
                begin
                FLeft:= L;
                FBottom:= Paper.H-B;
  
negative.code: if RefTextTot= -1
  then
    RefTextTot:= Texts.Add(TextTot);
  WriteNumber(Horiz,Verti,ColNum,RefTextPage,RefTextTot,FontNum,BkColorNum,BordNum,LineSpNum,Flags,Total,Alpha,zFooter,PSectNum);
  end;
  
  procedure T_Report.HorizLineHeader(SpBefore,SpAfter: Single; ColNum: Integer= 0; StyleNum: Integer= 0);
  begin
  DrawAHorizLine(Dim2Pixels(SpBefore),Dim2Pixels(SpAfter),ColNum,-1,StyleNum,zHeader);
  end;
  
  procedure T_Report.HorizLinePage(SpBefore,SpAfter: Single; ColNum: Integer= 0; StyleNum: Integer= 0);
  