program ShowText;

{$APPTYPE CONSOLE}

uses

   SysUtils, Graphics, Classes, HPDFDoc;

var

   HPDF: THotPDF;

begin

   HPDF := THotPDF.Create( nil );

   try

       HPDF.AutoLaunch := true;                  // PDFファイルは自動的に表示されます

       HPDF.FileName := 'ShowText.pdf';         

       HPDF.BeginDoc;                                 // PDFファイルを作成します

       HPDF.CurrentPage.SetFont( 'Times New Roman', [], 12 );  // 現在のフォントを設定します

       HPDF.CurrentPage.BeginText;                              // テキストブロックを開始します

       HPDF.CurrentPage.MoveTextPoint( 20, 20 );      // テキスト描画ポイントを20, 20に移動します

       HPDF.CurrentPage.ShowText( 'This' );                 // テキストを表示します

       HPDF.CurrentPage.SetTextRise( -5 );                  // テキストライズ（文字の配置高さ）を設定します

       HPDF.CurrentPage.ShowText( 'text' );                  // テキストを表示します

       HPDF.CurrentPage.SetTextRise( 5 );                   // テキストライズを設定します

       HPDF.CurrentPage.ShowText( 'moves' );             // テキストを表示します

       HPDF.CurrentPage.SetTextRise( 0 );                   // テキストライズを設定します

       HPDF.CurrentPage.ShowText( 'around' );            // テキストを表示します

       HPDF.CurrentPage.EndText;                                // テキストブロックを終了します

       HPDF.EndDoc;                                                 // PDFファイルを閉じます

   finally

       HPDF.Free;

   end;

end.