anchor.diff:    J: Integer;
     stop: TBusStop;
     ssid: string;
  +  client: TClient;
   begin
     time := StrToDateTime(aTime, isoDateTimeFormatSettings);
  +
  +  fCurrentTime := time;
  +  TMonitor.Enter(fScenario.clients);
  +  try
  +    for client in fScenario.clients do
  +    begin
  +      // send new time to all other clients
  +      if Client<>aClient then
  +        client.signalString('{"type":"timesliderEvents","payload":{"setCurrentTime":"'+FormatDateTime(publisherDateTimeFormat, fCurrentTime)+'"}}');
  +    end;
  +  finally
  +    TMonitor.Exit(fScenario.clients);
  +  end;
  +
     stopID := '';
     found := false;
     iNearest := -1;
  
positive.code:   // send data to time slider
    jsonTSData := jsonTimesliderData;
    aClient.signalString('{"type":"timesliderEvents","payload":{"setEvents":['+jsonTSData+']}}');
  end;
  
  procedure TSantosLayer.HandleFormResult(aFormResult: TJSONObject);
  
negative.code:     fConnectString: string;
      fUpdateTimer: TTimer;
      fLastUpdate: THighResTicks;
      fCurrentTime: TDateTime;
  
  
      procedure initStops(aSession: TOraSession);
  