anchor.diff:    if not Assigned(FSharedConnection) then
     begin
       CreateOwnedConnectionIfNeeded;
  +    {$IFDEF CACHE_CONNECTIONS}
  +    //
  +    {$ELSE}
       FOwnedConnection.Close;
  +    {$ENDIF}
     end;
   end;
   
  
positive.code: begin
    if not Assigned(FOwnedConnection) then
    begin
      FOwnedConnection := TmDatabaseConnection.Create;
      if Assigned(FConnectionInfo) then
        FOwnedConnection.ConnectionInfo := FConnectionInfo;
    end;
  end;
  
  destructor TmDatabaseConnectionsTandem.Destroy;
  begin
    FreeAndNil(FOwnedConnection);
    inherited Destroy;
  end;
  
  
negative.code:   _LastSQLScript := '';
    _LastSQLScriptCriticalSection := TCriticalSection.Create;
    _CreateImplementationCriticalSection := TCriticalSection.Create;
    _ConnectionsCache := TmDatabaseConnectionsCache.Create;
    RegisterExceptionLogTracer(GetLastSQLScript);
  
  finalization
    FreeAndNil(_LastSQLScriptCriticalSection);
    FreeAndNil(_CreateImplementationCriticalSection);
    FreeAndNil(_ConnectionsCache);
  
  end.
  