anchor.diff:  procedure TOR.RCSFail(addr:integer);
   begin
    try
  -   if (not Self.OR_RCS.modules[addr].present) then Exit();
  +   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;
  
positive.code: end;
  
  procedure TOR.RCSUpdate();
  var i:Integer;
      str:string;
  begin
   if (not Self.OR_RCS.failure) then Exit();
  
   if ((Self.OR_RCS.last_failure_time + EncodeTime(0, 0, 0, 500)) < Now) then
    begin
     str := 'Vpadek RCS modulu ';
     for i := 0 to TRCS._MAX_RCS do
      if (Self.OR_RCS.modules[i].failed) then
       begin
        str := str + IntToStr(i) + ', ';
        Self.OR_RCS.modules[i].failed := false;
       end;
  
     str := LeftStr(str, Length(str)-2);
     Self.OR_RCS.failure := false;
  
     for i := 0 to Self.Connected.Count-1 do
       if (Self.Connected[i].Rights >= read) then
         ORTCPServer.BottomError(Self.Connected[i].Panel, str, Self.ShortName, 'TECHNOLOGIE');
    end;
  end;
  
  
negative.code: 
   Self.ORProp.Osvetleni := TList<TOsv>.Create();
   Self.Connected        := TList<TORPanel>.Create();
   Self.OR_RCS := TORRCSs.Create();
  
   Self.ORStav.dk_click_callback := nil;
   Self.ORStav.reg_please := nil;
  