anchor.diff:    PointSize := 10;
     Attributes := [];
     FixedWidth := False;
  +  UseFaceName := '';
  +  FaceName := '';
   end;
   
   // frees allocated memory, if any.
  
positive.code:   // delete each logical font and our record of it
    for i := 0 to FLogicalFonts.Count - 1 do
    begin
      Font := TLogicalFont(FLogicalFonts[ i ]);
      Font.Free;
    end;
    FLogicalFonts.Clear;
    FLogicalFonts.Free;
  
negative.code:   // TCanvasFontManager asked for FontFaces to be created, so lets take responsibility to destroy it.
    for i := 0 to FontFaces.Count-1 do
    begin
      lface := TFontFace(Fontfaces[i]);
      lface.Free;
    end;
    FontFaces.Clear;
    FontFaces.Free;
  