anchor.diff:  procedure TBlkTU.ZastStopTrain();
   begin
    Self.fTUStav.zast_stopped  := true;
  - Self.fTUStav.zast_run_time := Now+Self.UsekSettings.Zastavka.delay;
  + Self.fTUStav.zast_run_time := Now+Self.TUSettings.Zastavka.delay;
   
    try
      Self.fTUStav.zast_rych := Soupravy.soupravy[Self.Souprava].rychlost;
  
positive.code: 
      function ShowPanelMenu(SenderPnl:TIdContext; SenderOR:TObject; rights:TORCOntrolRights):string; override;
      procedure PanelClick(SenderPnl:TIdContext; SenderOR:TObject; Button:TPanelButton; rights:TORCOntrolRights); override;
  
      property TUStav:TBlkTUStav read fTUStav;
  
   end;//TBlkUsek
  
  
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;
  