anchor.diff:  
   uses GetSystems, BlockDb, BlockSignal, Logging, RCS, ownStrUtils, Diagnostics,
       TJCDatabase, fMain, TCPServerPanel, BlockRailway, TrainDb, THVDatabase, Math,
  -    Trakce, THnaciVozidlo, BlockRailwayTrack, BoosterDb, appEv,
  +    Trakce, THnaciVozidlo, BlockRailwayTrack, BoosterDb, appEv, StrUtils,
       announcementHelper, TechnologieJC, PTUtils, RegulatorTCP, TCPAreasRef,
       Graphics, ownConvert, TechnologieTrakce, TMultiJCDatabase;
   
  
positive.code:    Result := Result + '-,';
  
     for m_state in Self.sectionsState do
      if (m_state = TTrackState.free) then
       begin
        Result := Result + '*OBSAZ,';
        break;
       end;
  
     for m_state in Self.sectionsState do
      if (m_state = TTrackState.occupied) then
       begin
        Result := Result + '*UVOL,';
        break;
       end;
    end;//if RCSi.lib = 2
  end;
  
  
negative.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 if (LeftStr(item, 3) = 'DET') then begin
    Self.MenuDetClick(SenderPnl, SenderOR, StrToInt(item[4])-1, item[5] = '>');
   end else begin
    // cislo soupravy
    for i := 0 to Self.trains.Count-1 do
      if (item = TrainDb.Trains[Self.trains[i]].name) then
  