diff options
author | Erich Eckner <git@eckner.net> | 2016-03-16 10:58:00 +0100 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2016-03-16 10:58:00 +0100 |
commit | 9caaf1f1b7aef385355946a99974614ca9586915 (patch) | |
tree | 5cddf355d226139fbe81465079376ef5c144cede /unit1.pas | |
parent | 3c395ca377868e75dab1f6b875d38a8c842072aa (diff) | |
download | Emails-9caaf1f1b7aef385355946a99974614ca9586915.tar.xz |
destructor verwenden
Diffstat (limited to 'unit1.pas')
-rw-r--r-- | unit1.pas | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -24,6 +24,7 @@ type procedure CheckBox1Click(Sender: TObject); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); procedure FormResize(Sender: TObject); procedure FormShow(Sender: TObject); procedure TrayIcon1Click(Sender: TObject); @@ -101,6 +102,11 @@ begin pc.port:=995; end; +procedure TForm1.FormDestroy(Sender: TObject); +begin + pc.free; +end; + procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction); begin pc.threadAnhalten; |