anchor.diff:  uses BlockDb, BlockTrack, TJCDatabase, TCPServerPanel, Graphics, BlockGroupSignal,
     GetSystems, Logging, TrainDb, BlockIR, AreaStack, ownStrUtils, BlockPst,
     BlockRailwayTrack, BlockRailway, BlockTurnout, BlockLock, TechnologieAB,
  -  predvidanyOdjezd, ownConvert, RCS, IfThenElse, RCSErrors;
  +  predvidanyOdjezd, ownConvert, RCS, IfThenElse, RCSErrors, UPO;
   
   constructor TBlkSignal.Create(index: Integer);
   begin
  
positive.code:     changeCallbackOk, changeCallbackErr: TNotifyEvent; // notifikace o nastaveni polohy navestidla
      changeEnd: TTime;
      psts: TList<TBlk>;
    end;
  
    TBlkSignalSpnl = record
  
negative.code: 
      procedure PrivolDKClick(SenderPnl: TIdContext; SenderOR: TObject; Button: TPanelButton);
      procedure PrivokDKPotvrSekv(Sender: TIdContext; success: Boolean);
      procedure PrivolBarriers(var barriers: TList<TJCBarrier>; SenderArea: TArea);
      procedure PrivolBarriersConfirmed(Sender: TObject);
      procedure PrivolBarriersRejected(Sender: TObject);
      procedure RNZPotvrSekv(Sender: TIdContext; success: Boolean);
  
      function GetTrackId(): TBlk;
  