anchor.diff:  
       procedure MenuObsazClick(SenderPnl: TIdContext; SenderOR: TObject);
       procedure MenuUvolClick(SenderPnl: TIdContext; SenderOR: TObject);
  +    procedure MenuDetClick(SenderPnl: TIdContext; SenderOR: TObject; id: Integer; state: Boolean);
   
       procedure ORVylukaNull(Sender: TIdContext; success: Boolean);
   
  
positive.code: begin
   try
     for rcsaddr in Self.m_settings.RCSAddrs do
       RCSi.SetInput(rcsaddr.board, rcsaddr.port, 0);
   except
     PanelServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TArea(SenderOR).ShortName, 'SIMULACE');
   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
  