destructor verwenden

3 files changed, 60 insertions, 44 deletions

diff --git a/emails.lps b/emails.lps
index ce5a2a2..4c72b2b 100644
--- a/emails.lps
+++ b/emails.lps
@@ -3,13 +3,13 @@
   <ProjectSession>
     <Version Value="9"/>
     <BuildModes Active="Default"/>
-    <Units Count="8">
+    <Units Count="9">
       <Unit0>
         <Filename Value="emails.lpr"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <CursorPos Y="7"/>
-        <UsageCount Value="24"/>
+        <UsageCount Value="25"/>
       </Unit0>
       <Unit1>
         <Filename Value="unit1.pas"/>
@@ -18,20 +18,18 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <IsVisibleTab Value="True"/>
-        <TopLine Value="190"/>
-        <CursorPos X="25" Y="217"/>
-        <UsageCount Value="24"/>
+        <UsageCount Value="25"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit1>
       <Unit2>
         <Filename Value="../units/popunit.pas"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="454"/>
-        <CursorPos X="46" Y="483"/>
-        <UsageCount Value="24"/>
+        <TopLine Value="185"/>
+        <CursorPos X="54" Y="196"/>
+        <UsageCount Value="25"/>
         <Loaded Value="True"/>
       </Unit2>
       <Unit3>
@@ -64,121 +62,132 @@
       <Unit7>
         <Filename Value="../units/gitupdateunit.pas"/>
         <EditorIndex Value="-1"/>
+        <CursorPos Y="39"/>
         <UsageCount Value="10"/>
       </Unit7>
+      <Unit8>
+        <Filename Value="../units/refreshexecutableunit.pas"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="31"/>
+        <CursorPos X="21" Y="70"/>
+        <UsageCount Value="10"/>
+      </Unit8>
     </Units>
-    <JumpHistory Count="28" HistoryIndex="27">
+    <JumpHistory Count="29" HistoryIndex="28">
       <Position1>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="186" Column="35" TopLine="166"/>
+        <Caret Line="172" Column="46" TopLine="139"/>
       </Position1>
       <Position2>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="200" Column="21" TopLine="180"/>
+        <Caret Line="182" Column="44" TopLine="149"/>
       </Position2>
       <Position3>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="240" Column="31" TopLine="217"/>
+        <Caret Line="187" Column="21" TopLine="154"/>
       </Position3>
       <Position4>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="251" TopLine="231"/>
+        <Caret Line="276" Column="44" TopLine="243"/>
       </Position4>
       <Position5>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="252" Column="33" TopLine="232"/>
+        <Caret Line="440" Column="38" TopLine="408"/>
       </Position5>
       <Position6>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="253" Column="36" TopLine="243"/>
       </Position6>
       <Position7>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="281" Column="52" TopLine="262"/>
+        <Caret Line="56" Column="26" TopLine="25"/>
       </Position7>
       <Position8>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="286" Column="23" TopLine="266"/>
+        <Caret Line="445" Column="47" TopLine="410"/>
       </Position8>
       <Position9>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="187" TopLine="156"/>
+        <Caret Line="518" Column="4" TopLine="498"/>
       </Position9>
       <Position10>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="188" TopLine="156"/>
+        <Caret Line="520" TopLine="500"/>
       </Position10>
       <Position11>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="551" TopLine="530"/>
+        <Caret Line="539" Column="17" TopLine="518"/>
       </Position11>
       <Position12>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="598" Column="45" TopLine="577"/>
+        <Caret Line="23" Column="23" TopLine="4"/>
       </Position12>
       <Position13>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="605" Column="22" TopLine="583"/>
+        <Caret Line="154" Column="42" TopLine="134"/>
       </Position13>
       <Position14>
         <Filename Value="../units/popunit.pas"/>
+        <Caret Line="278" Column="39" TopLine="257"/>
       </Position14>
       <Position15>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="264" Column="16" TopLine="231"/>
+        <Caret Line="25" Column="25" TopLine="5"/>
       </Position15>
       <Position16>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="282" Column="18" TopLine="250"/>
+        <Caret Line="173" Column="32" TopLine="164"/>
       </Position16>
       <Position17>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="316" Column="18" TopLine="283"/>
+        <Caret Line="23" Column="23" TopLine="23"/>
       </Position17>
       <Position18>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="353" Column="16" TopLine="321"/>
+        <Caret Line="56" Column="13" TopLine="29"/>
       </Position18>
       <Position19>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="369" Column="16" TopLine="337"/>
+        <Caret Line="22" Column="12" TopLine="2"/>
       </Position19>
       <Position20>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="385" Column="16" TopLine="353"/>
+        <Caret Line="162" Column="34" TopLine="129"/>
       </Position20>
       <Position21>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="401" Column="16" TopLine="369"/>
+        <Caret Line="163" Column="10" TopLine="151"/>
       </Position21>
       <Position22>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="454" Column="20" TopLine="422"/>
+        <Caret Line="169" Column="10" TopLine="151"/>
       </Position22>
       <Position23>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="9" Column="35"/>
+        <Filename Value="../units/popunit.pas"/>
+        <Caret Line="180" Column="21" TopLine="151"/>
       </Position23>
       <Position24>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="161" Column="5" TopLine="134"/>
+        <Caret Line="521" Column="52" TopLine="508"/>
       </Position24>
       <Position25>
         <Filename Value="unit1.pas"/>
-        <Caret Line="9" Column="35"/>
+        <Caret Line="39" Column="5" TopLine="39"/>
       </Position25>
       <Position26>
-        <Filename Value="../units/popunit.pas"/>
-        <Caret Line="229" Column="35" TopLine="215"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="107" Column="11" TopLine="75"/>
       </Position26>
       <Position27>
-        <Filename Value="../units/popunit.pas"/>
-        <Caret Line="41" Column="41" TopLine="19"/>
+        <Filename Value="unit1.pas"/>
       </Position27>
       <Position28>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="229" Column="48" TopLine="193"/>
+        <Caret Line="159" Column="68" TopLine="139"/>
       </Position28>
+      <Position29>
+        <Filename Value="../units/popunit.pas"/>
+        <Caret Line="29" Column="26" TopLine="9"/>
+      </Position29>
     </JumpHistory>
   </ProjectSession>
 </CONFIG>
diff --git a/unit1.lfm b/unit1.lfm
index b874def..60fdbe0 100644
--- a/unit1.lfm
+++ b/unit1.lfm
@@ -8,6 +8,7 @@ object Form1: TForm1
   ClientWidth = 999
   OnClose = FormClose
   OnCreate = FormCreate
+  OnDestroy = FormDestroy
   OnResize = FormResize
   OnShow = FormShow
   LCLVersion = '1.4.4.0'
@@ -72,18 +73,18 @@ object Form1: TForm1
   end
   object CheckBox1: TCheckBox
     Left = 272
-    Height = 21
+    Height = 24
     Top = 596
-    Width = 93
+    Width = 98
     Caption = 'aufploppen'
     OnClick = CheckBox1Click
     TabOrder = 2
   end
   object CheckBox2: TCheckBox
     Left = 416
-    Height = 21
+    Height = 24
     Top = 596
-    Width = 86
+    Width = 94
     Caption = 'Ton geben'
     Checked = True
     OnClick = CheckBox1Click
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;