procedure TForm2.Button1Click(Sender: TObject);
var
 lPdf   : TPdfDocument;
 lPage  : TPdfPage;
begin
  lPdf := TPdfDocument.Create;
  try
    lPdf.Info.Author        := 'Tester';
    lPdf.Info.CreationDate  := Now;
    lPdf.Info.Creator       := 'Tester';
    lPdf.DefaultPaperSize   := psA4;
    lPage := lPDF.AddPage;
    lPDF.Canvas.SetFont('宋体',10.0,[]);
    lPDF.Canvas.SetLeading(lPDF.Canvas.Page.FontSize);
    lPDF.Canvas.SetLineWidth(0.1);

    lPdf.Canvas.BeginText;
    lPdf.Canvas.TextOut( 300, 700,  'This is some text.');
    lpdf.Canvas.TextOut(10,200,'你好');
    lpdf.Canvas.TextOutW(10,300,'你好');
    lPdf.Canvas.EndText;
    lPdf.SaveToFile('test.pdf');
  finally
    lPdf.Free;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute() then begin
    Edit1.Text := OpenDialog1.FileName;
    SRichViewEdit1.Clear;
    SRichViewEdit1.RichViewEdit.LoadRTF(Edit1.Text);
    SRichViewEdit1.Format;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  gtPDFEngine1.FileName := OpenDialog1.FileName + '.pdf';
  gtScaleRichViewInterface1.RenderDocument(SRichViewEdit1);
end;

  HtmlViewer1.LoadFromFile('test.html');
  gtHtmlViewInterface1.Engine := gtPDFEngine1;
  gtPDFEngine1.Preferences.ShowSetupDialog := False;
  gtPDFEngine1.Preferences.OpenAfterCreate := False;
  gtPDFEngine1.FileName := 'test.pdf';
  gtHtmlViewInterface1.RenderDocument(HtmlViewer1);