tvplanit: Fix uninitialized local variable in TZeosDatastore.SetConnection.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4765 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/source/vpzeosds.pas

@@ -323,7 +323,8 @@ begin
   if FConnection <> nil then begin
     wasConnected := FConnection.Connected;
     Connected := false;
-  end;
+  end else
+    wasConnected := false;
   FConnection := AValue;
   FContactsTable.Connection := FConnection;
   FEventsTable.Connection := FConnection;