anchor.diff:  var
     PPString: string;
   begin
  -  Result := TLogicalFont.Create( nil );
  +  Result := TLogicalFont.Create;
     if FindFaceName( FaceName ) = nil then
       Exit;  //==>
     Result.PointSize := PointSize; // will use later if the result was an outline font...
  
positive.code:   FontInfo: string;
    FixedWidth: boolean;
  begin
    Face := nil;
    RemoveBoldFromSelection := false;
    RemoveItalicFromSelection := false;
  
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
  