anchor.diff:  
       function ShowPanelMenu(SenderPnl:TIdContext; SenderOR:TObject; rights:TORCOntrolRights):string; override;
       procedure PanelClick(SenderPnl:TIdContext; SenderOR:TObject; Button:TPanelButton; rights:TORCOntrolRights); override;
  +    procedure PanelMenuClick(SenderPnl:TIdContext; SenderOR:TObject; item:string); override;
   
       property TUStav:TBlkTUStav read fTUStav;
  +    property Souprava:Integer read GetUsekSpr write SetUsekSpr;
   
    end;//TBlkUsek
   
  
positive.code: //update all local variables
  procedure TBlkTU.Update();
  begin
   if ((Self.InTrat > -1) and (Self.Stav.Stav = TUsekStav.obsazeno) and (Self.Souprava > -1) and (Self.TUSettings.Zastavka.enabled)) then
     Self.ZastUpdate();
  end;
  
negative.code:     procedure ZastRunTrain();
      procedure ZastStopTrain();
  
      procedure MenuZastClick(SenderPnl:TIdContext; SenderOR:TObject; new_state:boolean);
      procedure MenuJEDLokClick(SenderPnl:TIdContext; SenderOR:TObject);
  
      procedure SetUsekSpr(spr:Integer);
      function GetUsekSpr:Integer;
  
    public
      constructor Create(index:Integer);
      destructor Destroy(); override;
  