anchor.diff:      fConnectString: string;
       fUpdateTimer: TTimer;
       fLastUpdate: THighResTicks;
  +    fCurrentTime: TDateTime;
   
   
       procedure initStops(aSession: TOraSession);
  
positive.code: 
    TMonitor.Enter(fScenario.clients);
    try
      for client in scenario.clients do
      begin
        // send data to time slider
        jsonTSData := jsonTimesliderData;
  
negative.code:       query.Free;
      end;
  
      fCurrentTime := now;
  
    finally
      TMonitor.Exit(fTimeTable);
    end;
  