procedure TForm1.Button2Click(Sender: TObject);
var
  LTypeFace: ISkTypeface;
begin
  LTypeface := TSkTypeface.MakeFromName('Arial', TSkFontStyle.Create(400, Ord(TSkFontWidth.Normal), TSkFontSlant.Upright));
  if LTypeface.Weight <> 400 then
    ShowMessage('Weight <> 400');  // ok in Skia4d 6+7

  LTypeface := TSkTypeface.MakeFromName('Arial', TSkFontStyle.Create(700, Ord(TSkFontWidth.Normal), TSkFontSlant.Upright));
  if LTypeface.Weight <> 700 then
    ShowMessage('Weight <> 700');  // ok in Skia4d 6, fails in Skia4d 7

  LTypeface := TSkTypeface.MakeFromName('Arial', TSkFontStyle.Create(400, Ord(TSkFontWidth.Normal), TSkFontSlant.Italic));
  if LTypeface.Slant <> TSkFontSlant.Italic then
    ShowMessage('Font is not italic'); // ok in Skia4d 6, fails in Skia4d 7
end;