Question about italic fonts in PDF

procedure ItalicTest;
const
  MMPerInch = 25.7;
var
  PDFPrinter: TWPPDFPrinter;
  Canvas: TCanvas;
  PWidth, PHeight, Resolution: Integer;
begin
  PDFPrinter := TWPPDFPrinter.Create(nil);
  PDFPrinter.Filename := 'C:\Users\Andi\Documents\PDF Test\kursiv.pdf';


  PDFPrinter.FontMode :=  wpEmbedSubsetTrueType_UsedChar;
  PDFPrinter.CompressStreamMethod := wpCompressNone;
  PDFPrinter.EncodeStreamMethod := wpEncodeNone;
  PDFPrinter.BeginDoc;


  Resolution := 300;
  PWidth := Round((210 / MMPerInch) * Resolution);
  PHeight := Round((297 / MMPerInch) * Resolution);
  PDFPrinter.StartPage(PWidth, PHeight, Resolution, Resolution, 0);


  PDFPrinter.Canvas.Font.Name := 'Comic Sans MS';
  PDFPrinter.Canvas.Font.Size := 40;
  PDFPrinter.Canvas.Font.Style := [fsItalic];
  PDFPrinter.Canvas.TextOut(0, 0, 'Comic Sans MS italic');


  PDFPrinter.EndPage;
  PDFPrinter.EndDoc;
end;