program HelloWorld;

{$APPTYPE CONSOLE}

uses

   SysUtils, Graphics, Classes, HPDFDoc;

var

   HPDF: THotPDF;

begin

   HPDF := THotPDF.Create( nil );

   try

HPDF.AutoLaunch := true; // سيتم عرض ملف PDF تلقائيًا

       HPDF.FileName := 'Curve.pdf';                              

HPDF.BeginDoc; // إنشاء ملف PDF

HPDF.CurrentPage.DrawPie( 200, 200, 100, 0, 90 ); // رسم قطاع دائري

HPDF.CurrentPage.Stroke; // ورسم الإطار

HPDF.EndDoc; // إغلاق ملف PDF

   finally

       HPDF.Free;

   end;

end.