anchor.diff:  begin
    inherited;
    Self.parts := TObjectList<TBlkUsekRef>.Create();
  + Self.stateLast := TUsekStav.uvolneno;
   end;
   
   constructor TBlkUsekRefs.Create(str: string);
  
positive.code: ////////////////////////////////////////////////////////////////////////////////
  
  function TBlkUsekRefs.GetChanged():boolean;
  var old: TUsekStav;
  begin
   old := Self.stateOld;
   Result := (old <> Self.state);
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
negative.code:  inherited Create();
   Self.parts := TObjectList<TBlkUsekRef>.Create();
   Self.Parse(str);
   Self.stateLast := TUsekStav.uvolneno;
  end;
  
  destructor TBlkUsekRefs.Destroy();
  