anchor.diff:    // TCanvasFontManager asked for FontFaces to be created, so lets take responsibility to destroy it.
     for i := 0 to FontFaces.Count-1 do
     begin
  -    face := TFontFace(Fontfaces[i]);
  -    face.Free;
  +    lface := TFontFace(Fontfaces[i]);
  +    lface.Free;
     end;
     FontFaces.Clear;
     FontFaces.Free;
  
positive.code: destructor TCanvasFontManager.Destroy;
  var
    i: integer;
    Font: TLogicalFont;
    face: TFontFace;
  begin
    // select default font so none of our logical fonts are in use
    FCanvas.Font := fpgApplication.DefaultFont;
  
negative.code:   PointSize := 10;
    Attributes := [];
    FixedWidth := False;
    UseFaceName := '';
    FaceName := '';
  end;
  
  // frees allocated memory, if any.
  