mORMot Open Source

var
  lPdf: TPdfDocumentGDI;
  lPage: TPdfPage;
begin
  lPdf := TPdfDocumentGDI.Create;
  lPage := lPdf.AddPage;
  try
    lPdf.VCLCanvas.Font.Name := '黑体'; //Display incorrect
    //lPDF.VCLCanvas.Font.Name := '宋体';  //Display correct
    lPdf.VCLCanvas.Font.Size := 20;
    lPdf.VCLCanvas.TextOut(100, 100, '测试内容');
    lPdf.SaveToFile('C:\Syntest.pdf');
  finally
    lPdf.Free;
  end;
end;