1 files changed, 6 insertions, 0 deletions
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;