First Release

- Cleaned up useless actions
- Removed fake clicks to focus only on Mouse UP events
- Gracefully terminate threads when stoping or leaving the application

main.dfm

@@ -10,6 +10,7 @@ object frmMain: TfrmMain
   Font.Height = -12
   Font.Name = 'Segoe UI'
   Font.Style = []
+  OnClose = FormClose
   OnCreate = FormCreate
   TextHeight = 15
   object lblStatus: TLabel
@@ -19,6 +20,21 @@ object frmMain: TfrmMain
     Height = 15
     AutoSize = False
   end
+  object progressBar: TProgressBar
+    Left = 8
+    Top = 39
+    Width = 273
+    Height = 20
+    Enabled = False
+    ParentShowHint = False
+    Position = 87
+    MarqueeInterval = 0
+    BarColor = clLime
+    Step = 1
+    State = pbsPaused
+    ShowHint = False
+    TabOrder = 1
+  end
   object btnStart: TButton
     Left = 8
     Top = 8
@@ -28,17 +44,4 @@ object frmMain: TfrmMain
     TabOrder = 0
     OnClick = btnStartClick
   end
-  object progressBar: TProgressBar
-    Left = 8
-    Top = 39
-    Width = 273
-    Height = 17
-    Enabled = False
-    Position = 87
-    MarqueeInterval = 0
-    BarColor = clLime
-    Step = 1
-    State = pbsPaused
-    TabOrder = 1
-  end
 end