anchor.diff:  ////////////////////////////////////////////////////////////////////////////////
   
   function TTrain.IsStolen(): Boolean;
  -var addr: Integer;
  -begin
  - for addr in Self.HVs do
  +begin
  + for var addr in Self.HVs do
      if (HVDb[addr].stolen) then
        Exit(true);
    Result := false;
  
positive.code: procedure TTrain.UpdateTrainFromPanel(train: TStrings; Usek: TObject; area: TObject; ok: TCb; err: TCb);
  var json: TJsonObject;
      hvs, hv: TStrings;
      s, straddr: string;
      hvobj: TJsonObject;
  begin
   json := TJsonObject.Create();
   try
  
negative.code:    (Self.data.front as TBlkTrack).slowingReady := false;
   Self.data.front := front;
  
   for var addr in Self.HVs do
     HVDb[addr].OnPredictedSignalChange();
  
   Self.changed := true;
  