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