anchor.diff:    i: integer;
     Txt: TPdfText;
     Clr: TPdfColor;
  -  Fnt: TPdfFonte;
  +  Fnt: TPdfEmbeddedFont;
     Rct: TPdfRectangle;
     Lin: TPdfLineSegment;
     Srf: TPdfSurface;
  
positive.code: 
    TPdfRectangle = class(TPdfObject)
    private
      FEpais: single;
      FRecX: single;
      FRecY: single;
      FRecW: single;
  
negative.code: begin
    for Cpt := 0 to Pred(FStream.Count) do
    begin
      if TPdfObject(FStream[Cpt]) is TPdfEmbeddedFont then
        TPdfEmbeddedFont(FStream[Cpt]).WriteFont(AStream);
      if TPdfObject(FStream[Cpt]) is TPdfColor then
        TPdfColor(FStream[Cpt]).WriteColor(AStream);
      if TPdfObject(FStream[Cpt]) is TPdfText then
  