diff options
Diffstat (limited to 'examples/gui/reporting/pdf_demo.lpr')
-rw-r--r-- | examples/gui/reporting/pdf_demo.lpr | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/examples/gui/reporting/pdf_demo.lpr b/examples/gui/reporting/pdf_demo.lpr index 9593287c..f640cc50 100644 --- a/examples/gui/reporting/pdf_demo.lpr +++ b/examples/gui/reporting/pdf_demo.lpr @@ -13,17 +13,20 @@ uses U_Demo; procedure MainProc; +var + frm: TF_Demo; begin fpgApplication.Initialize; - F_Demo:= TF_Demo.Create(nil); + frm := TF_Demo.Create(nil); try - F_Demo.Show; + frm.Show; fpgApplication.Run; finally - F_Demo.Free; + frm.Free; end; end; begin MainProc; end. + |