diff options
Diffstat (limited to 'examples/gui/treeviewtest/treeviewtest.lpr')
| -rw-r--r-- | examples/gui/treeviewtest/treeviewtest.lpr | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/examples/gui/treeviewtest/treeviewtest.lpr b/examples/gui/treeviewtest/treeviewtest.lpr index 562ca8bb..68fb9f91 100644 --- a/examples/gui/treeviewtest/treeviewtest.lpr +++ b/examples/gui/treeviewtest/treeviewtest.lpr @@ -75,9 +75,12 @@ var begin fpgApplication.Initialize; frm := TMainForm.Create(nil); - frm.Show; - fpgApplication.Run; - frm.Free; + try + frm.Show; + fpgApplication.Run; + finally + frm.Free; + end; end; begin |