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.