From 9caaf1f1b7aef385355946a99974614ca9586915 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 16 Mar 2016 10:58:00 +0100
Subject: destructor verwenden

---
 unit1.pas | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'unit1.pas')

diff --git a/unit1.pas b/unit1.pas
index a43430e..7cc71cd 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -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;
-- 
cgit v1.2.3-54-g00ecf