anchor.diff:        query.Free;
       end;
   
  +    fCurrentTime := now;
  +
     finally
       TMonitor.Exit(fTimeTable);
     end;
  
positive.code:   J: Integer;
    stop: TBusStop;
    ssid: string;
  begin
    time := StrToDateTime(aTime, isoDateTimeFormatSettings);
    stopID := '';
    found := false;
    iNearest := -1;
  
negative.code:     fConnectString: string;
      fUpdateTimer: TTimer;
      fLastUpdate: THighResTicks;
      fCurrentTime: TDateTime;
  
  
      procedure initStops(aSession: TOraSession);
  