Do not disconnect on coordinates exception

pchev · Apr 11, 2022 · 2f5d51a · 2f5d51a
1 parent d97c6a8
commit 2f5d51a
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/skychart/pu_ascomclient.pas b/skychart/pu_ascomclient.pas
@@ -256,7 +256,6 @@ procedure Tpop_scope.ShowCoordinates;
     except
       on E: Exception do begin
         MessageDlg(DriverMsg + ': ' + E.Message, mtWarning, [mbOK], 0);
-        ScopeDisconnect(ok);
         exit;
         end;
     end;
@@ -1145,7 +1144,7 @@ procedure Tpop_scope.Timer1Timer(Sender: TObject);
   FConnected := ScopeConnectedReal;
   if not FConnected then begin
     ScopeDisconnect(ok);
-    ShowMessage('Telescope disconnected!');
+    ShowMessage('Telescope disconnected on it''s own!');
     exit;
   end;
   try