anchor.diff:  begin
    try
      for rcsaddr in Self.m_settings.RCSAddrs do
  -     RCSi.SetInput(rcsaddr.board, rcsaddr.port, 0);
  +     RCSi.SetInput(rcsaddr, 0);
  + except
  +   PanelServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TArea(SenderOR).ShortName, 'SIMULACE');
  + end;
  +end;
  +
  +procedure TBlkTrack.MenuDetClick(SenderPnl: TIdContext; SenderOR: TObject; id: Integer; state: Boolean);
  +begin
  + if ((id < 0) or (id >= Self.m_settings.RCSAddrs.Count)) then
  +   Exit();
  +
  + try
  +   RCSi.SetInput(Self.m_settings.RCSAddrs[id], ownConvert.BoolToInt(state));
    except
      PanelServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TArea(SenderOR).ShortName, 'SIMULACE');
    end;
  
positive.code:  else if (item = 'HLÁŠENÍ příjezd')then Self.MenuHLASENIPrijezdClick(SenderPnl, SenderOR)
   else if (item = 'HLÁŠENÍ průjezd')then Self.MenuHLASENIPrujezdClick(SenderPnl, SenderOR)
   else if (item = 'PODJ')           then Self.MenuPOdjClick(SenderPnl, SenderOR)
   else begin
    // cislo soupravy
    for i := 0 to Self.trains.Count-1 do
      if (item = TrainDb.Trains[Self.trains[i]].name) then
  
negative.code:     canAdd: Boolean;
      addStr: string;
      m_state: TTrackState;
      i: Integer;
  begin
   Result := inherited;
  
  