diff --git a/source/main.pas b/source/main.pas
index f692b670..16ef6d67 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -1587,7 +1587,7 @@ begin
     FreeAndNil(ConnForm);
     if dlgResult = mrCancel then begin
       Close;
-      Exit;
+      Halt;
     end;
   end;