anchor.diff:   end;
   
    // jedno RCS oblasti rizeni
  - TORRCS = record
  -  present:boolean;                                                              // jestli je RCS v OR pritomno
  + TORRCS = class
     failed:boolean;                                                               // jestli RCS v OR selhalo (nekomunikuje)
  +  constructor Create(failed:boolean = false);
    end;
   
    // seznam RCS modulu v OR
  - TORRCSs = record
  -  modules: array [0..TRCS._MAX_RCS] of TORRCS;                                     // seznam RCS modulu v OR, indexem je adresa RCS
  + TORRCSs = class
  +  modules: TObjectDictionary<Cardinal, TORRCS>;
     failure:boolean;                                                              // jestli doslo k selhani jakohokoliv RCS modulu v OR
     last_failure_time:TDateTime;                                                  // cas posledniho selhani (pouziva se pro vytvareni souhrnnych zprav o selhani RCS modulu pro dispecera)
  +
  +  constructor Create();
  +  destructor Destroy(); override;
    end;
   
    /////////////////////////////////////////////////////////////////////////////
  
positive.code: 
   Self.ORProp.Osvetleni := TList<TOsv>.Create();
   Self.Connected        := TList<TORPanel>.Create();
   Self.RCSClear();
  
   Self.ORStav.dk_click_callback := nil;
   Self.ORStav.reg_please := nil;
  
negative.code: procedure TOR.RCSFail(addr:integer);
  begin
   try
     if (not Self.OR_RCS.modules.ContainsKey(addr)) then Exit();
     Self.OR_RCS.modules[addr].failed := true;
     Self.OR_RCS.failure := true;
     Self.OR_RCS.last_failure_time := Now;
  