anchor.diff:  
   function TBlkTU.GetZastIRLichy():TBlk;
   begin
  - if (((Self.fZastIRLichy = nil) and (Self.UsekSettings.Zastavka.IR_lichy <> -1)) or ((Self.fZastIRLichy <> nil) <> (Self.fZastIRLichy.GetGlobalSettings.id <> Self.UsekSettings.Zastavka.IR_lichy))) then
  -   Blky.GetBlkByID(Self.UsekSettings.Zastavka.IR_lichy, Self.fZastIRLichy);
  + if (((Self.fZastIRLichy = nil) and (Self.TUSettings.Zastavka.IR_lichy <> -1)) or ((Self.fZastIRLichy <> nil) <> (Self.fZastIRLichy.GetGlobalSettings.id <> Self.TUSettings.Zastavka.IR_lichy))) then
  +   Blky.GetBlkByID(Self.TUSettings.Zastavka.IR_lichy, Self.fZastIRLichy);
    Result := Self.fZastIRLichy;
   end;//function
   
   function TBlkTU.GetZastIRSudy():TBlk;
   begin
  - if (((Self.fZastIRSudy = nil) and (Self.UsekSettings.Zastavka.IR_sudy <> -1)) or ((Self.fZastIRSudy <> nil) and (Self.fZastIRSudy.GetGlobalSettings.id <> Self.UsekSettings.Zastavka.IR_sudy))) then
  -   Blky.GetBlkByID(Self.UsekSettings.Zastavka.IR_sudy, Self.fZastIRSudy);
  + if (((Self.fZastIRSudy = nil) and (Self.TUSettings.Zastavka.IR_sudy <> -1)) or ((Self.fZastIRSudy <> nil) and (Self.fZastIRSudy.GetGlobalSettings.id <> Self.TUSettings.Zastavka.IR_sudy))) then
  +   Blky.GetBlkByID(Self.TUSettings.Zastavka.IR_sudy, Self.fZastIRSudy);
    Result := Self.fZastIRSudy;
   end;//function
   
  
positive.code: procedure TBlkTU.ZastStopTrain();
  begin
   Self.fTUStav.zast_stopped  := true;
   Self.fTUStav.zast_run_time := Now+Self.UsekSettings.Zastavka.delay;
  
   try
     Self.fTUStav.zast_rych := Soupravy.soupravy[Self.Souprava].rychlost;
  
negative.code: //update all local variables
  procedure TBlkTU.Update();
  begin
   inherited;
  
   if ((Self.InTrat > -1) and (Self.Stav.Stav = TUsekStav.obsazeno) and (Self.Souprava > -1) and (Self.TUSettings.Zastavka.enabled)) then
     Self.ZastUpdate();
  end;
  