From 3bfc4d0ffbc7d1939429e0c19e4fd960fa8766fa Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Fri, 1 Apr 2011 17:33:22 +0000
Subject: [PATCH] Try to fix a rarely occurring access violation

---
 source/main.pas | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/source/main.pas b/source/main.pas
index 93a90309..6bb68fad 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -4883,18 +4883,20 @@ procedure TMainForm.TimerConnectedTimer(Sender: TObject);
 var
   ConnectedTime: Integer;
   Vendor: String;
+  Conn: TDBConnection;
 begin
-  if Assigned(ActiveConnection) and ActiveConnection.Active then begin
+  Conn := ActiveConnection;
+  if Assigned(Conn) and Conn.Active then begin
     // Calculate and display connection-time. Also, on any connect or reconnect, update server version panel.
-    ConnectedTime := ActiveConnection.ConnectionUptime;
+    ConnectedTime := Conn.ConnectionUptime;
     ShowStatusMsg('Connected: ' + FormatTimeNumber(ConnectedTime), 2);
-    case ActiveConnection.Parameters.NetType of
+    case Conn.Parameters.NetType of
       ntTCPIP, ntNamedPipe, ntSSHTunnel:
         Vendor := 'MySQL';
       ntMSSQL:
         Vendor := 'MS SQL';
     end;
-    ShowStatusMsg(Vendor+' '+ActiveConnection.ServerVersionStr, 3);
+    ShowStatusMsg(Vendor+' '+Conn.ServerVersionStr, 3);
   end else begin
     ShowStatusMsg('Disconnected.', 2);
   end;