anchor.diff:  var ref: TBlkUsekRef;
   begin
    for ref in Self.parts do
  -  begin
      if (ref.state <> TUsekStav.uvolneno) then
  -    begin
  -     Self.stateOld := ref.state;
        Exit(ref.state);
  -    end;
  -  end;
  - Self.stateOld := TUsekStav.uvolneno;
    Result := TUsekStav.uvolneno;
   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;
  