diff options
Diffstat (limited to 'examples/gui/timertest/timertest.lpr')
| -rw-r--r-- | examples/gui/timertest/timertest.lpr | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/examples/gui/timertest/timertest.lpr b/examples/gui/timertest/timertest.lpr index 7c4209df..dab53ad2 100644 --- a/examples/gui/timertest/timertest.lpr +++ b/examples/gui/timertest/timertest.lpr @@ -28,6 +28,7 @@ type procedure btnStopStartClick(Sender: TObject); public constructor Create(AOwner: TComponent); override; + destructor Destroy; override; end; @@ -107,6 +108,14 @@ begin timer3.Enabled := True; end; +destructor TMainForm.Destroy; +begin + timer3.Free; + timer2.Free; + timer1.Free; + inherited Destroy; +end; + procedure MainProc; var |