Шрифт в GDI+

Font: IGPFont;
FontFamily := TGPFontFamily.Create('Times New Roman');
Font := TGPFont.Create(FontFamily, 14, FontStyleBold, UnitPixel); // There is no overloaded version of 'Create' that can be called with these arguments

constructor TGPFont.Create(const Family: IGPFontFamily; const EmSize: Single;
  const Style: TGPFontStyle; const MeasureUnit: TGPUnit);
begin
  inherited Create;
  GdipCheck(GdipCreateFont(GdipHandle(Family), EmSize, Style, MeasureUnit, FNativeHandle))
end;
 
constructor TGPFont.Create(const FamilyName: String; const EmSize: Single;
  const Style: TGPFontStyle; const MeasureUnit: TGPUnit;
  const FontCollection: IGPFontCollection);
var
  Family: IGPFontFamily;
  NativeFamily: GpFontFamily;
begin
  inherited Create;
  try
    Family := TGPFontFamily.Create(FamilyName, FontCollection);
    NativeFamily := Family.NativeHandle;
  except
    NativeFamily := TGPFontFamily.GenericSansSerif.NativeHandle;
  end;
  GdipCheck(GdipCreateFont(NativeFamily, EmSize, Style, MeasureUnit, FNativeHandle))
end;
 
type
  TGPFontStyleEntry = (
    FontStyleBold      = 0,
    FontStyleItalic    = 1,
    FontStyleUnderline = 2,
    FontStyleStrikeout = 3,
    FontStyleReserved  = 31);
 
  TGPFontStyle = set of TGPFontStyleEntry;
 
const
  FontStyleRegular = [];
  FontStyleBoldItalic = [FontStyleBold, FontStyleItalic];

unit GdiPlus;
 
{ Delphi GDI+ Library for use with Delphi 2009 or later.
  Copyright (C) 2009 by Erik van Bilsen.
  Email: erik@bilsen.com
  Website: www.bilsen.com/gdiplus
...
Version 1.2

Font := TGPFont.Create(FontFamily, 14, FontStyleRegular, UnitPixel);
Font := TGPFont.Create(FontFamily, 14, FontStyleBoldItalic, UnitPixel);

onst
  FontStyleRegular = [];
  FontStyleBoldItalic = [FontStyleBold, FontStyleItalic];

Font := TGPFont.Create(FontFamily, 14, [FontStyleBold], UnitPixel);

Font := TGPFont.Create(FontFamily, 14, [FontStyleItalic], UnitPixel);

Font := TGPFont.Create(FontFamily, 14, [FontStyleBold, FontStyleItalic, FontStyleUnderline, FontStyleStrikeout], UnitPixel);