anchor.diff:  
     if Face = nil then
     begin
  +profileevent('Could not find the specified font name. Bummer! + early exit');
       // Could not find the specified font name. Bummer.
       Result := nil;
       exit;
     end;
   
  +profileevent('******* Now create the TLogicalFont instance');
     // OK now we have found the font face...
  -  Result := TLogicalFont.Create( nil );
  +  Result := TLogicalFont.Create;
     Result.PointSize    := FontSpec.PointSize; // will use later if the result was an outline font...
     Result.FaceName     := FontSpec.FaceName;
     Result.UseFaceName  := Face.Name;
  
positive.code: // TLogicalFont
  //------------------------------------------------------------------------
  
  constructor TLogicalFont.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    FontType := ftOutline;
    PointSize := 10;
    Attributes := [];
  
negative.code:     //  fsSelection := fsSelection or FM_SEl_OUTlINE;
    end;
  
  profileevent('  Result.FaceName=' + Result.FaceName);
  profileevent('  Result.PointSize=' + IntToStr(Result.PointSize));
  profileevent('  Result.UseFaceName=' + Result.UseFaceName);
  
    Result.pCharWidthArray := Nil;
    ProfileEvent('<<<<  TCanvasFontManager.CreateFont');
  end;
  
  // Register the given logical font with GPI and store for later use
  