anchor.diff:  
   interface
   
  -uses IniFiles,TBlok;
  +uses IniFiles, TBlok, JsonDataObjects;
   
   type
    TIRStav = (disabled = -5, none = -1, uvolneno = 0, obsazeno = 1);
  
positive.code: 
      function GetSettings():TBlkIRSettings;
      procedure SetSettings(data:TBlkIRSettings);
  
      property Stav:TIRStav read IRStav.Stav;
   end;//class TBlkIR
  
negative.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  procedure TBlkIR.GetPtData(json:TJsonObject; includeState:boolean);
  begin
   // TODO: MTB
   if (includeState) then
     Self.GetPtState(json['blokStav']);
  end;
  
  procedure TBlkIR.GetPtState(json:TJsonObject);
  begin
   case (Self.Stav) of
    TIRStav.disabled : json['stav'] := 'vypnuto';
    TIRStav.none     : json['stav'] := 'zadny';
    TIRStav.uvolneno : json['stav'] := 'uvolneno';
    TIRStav.obsazeno : json['stav'] := 'obsazeno';
   end;
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  end.//unit
  