anchor.diff:    FontInfo: string;
     FixedWidth: boolean;
   begin
  +ProfileEvent('>>>>  TCanvasFontManager.CreateFont >>>>');
     Face := nil;
     RemoveBoldFromSelection := false;
     RemoveItalicFromSelection := false;
  
positive.code:             Result := AFont;
              // done
              exit;
            end;
          end;
        end;
      end;
    end;
  
  
  except
    { TODO -oGraeme -cknow bug : An Access Violation error occurs often here! No idea why? }
    on E: Exception do
      ProfileEvent('Unexpected error occured. Error: ' + E.Message);
  end;
  
    // Need to create new logical font
    Result := CreateFont( FontSpec );
    if Result <> nil then
  
negative.code:     UseFaceName := SubstituteBitmapFontToOutline( FontSpec.FaceName )
    else
      UseFaceName := FontSpec.FaceName;
  ProfileEvent('UseFaceName=' + UseFaceName);
  
    if FontSpec.Attributes <> [] then
    begin
  profileevent('FontSpec.Attributes are not blank');
      BaseFontIsBitmapFont := false;
      if FAllowBitmapFonts then
      begin
  