anchor.diff:      canAdd: Boolean;
       addStr: string;
       m_state: TTrackState;
  +    i: Integer;
   begin
    Result := inherited;
   
  
positive.code: begin
   try
     for rcsaddr in Self.m_settings.RCSAddrs do
       RCSi.SetInput(rcsaddr.board, rcsaddr.port, 1);
   except
     PanelServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TArea(SenderOR).ShortName, 'SIMULACE');
   end;
  
negative.code:    Result := Result + '-,';
  
     for m_state in Self.sectionsState do
      begin
       if (m_state = TTrackState.free) then
        begin
         Result := Result + '*OBSAZ,';
         break;
        end;
      end;
  
     for m_state in Self.sectionsState do
      begin
       if (m_state = TTrackState.occupied) then
        begin
         Result := Result + '*UVOL,';
         break;
        end;
      end;
  
     if (Self.sectionsState.Count > 1) then
      begin
       for i := 0 to Self.sectionsState.Count-1 do
        begin
         case (Self.sectionsState[i]) of
          TTrackState.free: Result := Result + '*DET' + IntToStr(i+1) + '>,';
          TTrackState.occupied: Result := Result + '*DET' + IntToStr(i+1) + '<,';
         else
          Result := Result + '*DET' + IntToStr(i+1) + '>,';
          Result := Result + '*DET' + IntToStr(i+1) + '<,';
         end;
        end;
      end;
    end;//if RCSi.lib = 2
  end;
  
  