anchor.diff:  
     SelectFont( Font, 1 );
     FCurrentFontSpec := FontSpec;
  -  FCurrentFont.Free;
  +  if FCurrentFont <> Font then
  +    FCurrentFont.Free;
     FCurrentFont := Font;
   ProfileEvent('DEBUG:  TCanvasFontManager.SetFont <<<<');
   end;
  
positive.code:   lDefaultFontSpec: TFontSpec;
  begin
  ProfileEvent('DEBUG:  TCanvasFontManager.SetFont >>>>');
    if (FCurrentFontSpec.FaceName = FontSpec.FaceName) and
       (FCurrentFontSpec.PointSize = FontSpec.PointSize) and
       (FCurrentFontSpec.Attributes = FontSpec.Attributes) then
      // same font
      exit;
  
    Font := GetFont( FontSpec );
  
  
negative.code:     // ack! Pfffbt! Couldn't find the font.
  
      // Try to get the default font
      //writeln('---------- here goes nothing -------------');
      Font := GetFont( FDefaultFontSpec );
      if Font = nil then
      begin
  