anchor.diff:              TPdfDicElement(FElement[Pred(FElement.Count)]).WriteDicElement(AStream);
               WriteString('>>', AStream);
               // write fontfile stream in xobject dictionary
  -            TPdfFonte(TPdfXRef(Document.FGlobalXRefs[NumFnt]).FDict).WriteFonteStream(uStream, AStream);
  +            TPdfEmbeddedFont(TPdfXRef(Document.FGlobalXRefs[NumFnt]).FDict).WriteEmbeddedFont(uStream, AStream);
               uStream.Free;
             end;
           end;
  
positive.code: 
    TPdfRectangle = class(TPdfObject)
    private
      FEpais: single;
      FRecX: single;
      FRecY: single;
      FRecW: single;
  
negative.code: begin
    if FStroke then
    begin
      if (FormatFloat('0.##', FLineWidth) + ' w') <> uCurrentWidth then
      begin
        WriteString('1 J' + CRLF, AStream);
        WriteString(FormatFloat('0.##', FLineWidth) + ' w' + CRLF, AStream);
        uCurrentWidth := FormatFloat('0.##', FLineWidth) + ' w';
      end;
    end;
    WriteString(FormatFloat('0.##', FRecX) + ' ' + FormatFloat('0.##', FRecY) + ' ' + FormatFloat('0.##', FRecW) + ' ' + FormatFloat('0.##', FRecH) + ' re' + CRLF, AStream);
  