diff --git a/Unit1.cpp b/Unit1.cpp
index 96d7007..d9fb43a 100644
--- a/Unit1.cpp
+++ b/Unit1.cpp
@@ -739,6 +739,11 @@ void __fastcall TForm1::ActionAbortExecute(TObject *Sender)
 	{
 		btnAbortClick(btnAbort);
 	}
+
+	if (Exiting)
+	{
+		ExitStop();
+	}
 }
 
 // ---------------------------------------------------------------------------